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はじめに 



8 ビッ トマ ィ クロ プロセッサで 幕 を 開けた パソコン も 今や 16 ビッ ト パソコンの 実用 段階 を迎 
えてお り ます， 

PC— 9800 シリーズ は， 本格的な 16 ビッ トパ ソコン として， 数々 の 特長 ある 強力な 機能 を 提供 

します， 例えば 更に 強化され た N 8a — BASIC(86)， そして 曰 本 語 処理 や 図形 処理， また， ビジ ネ 
ス ユースの ための 大 容量 フ アイ ルの 提供な どが あげられます. 

一方， 従来の PC シリーズの 大きな 特長の 一^ ？ である 取り扱いの 容易 さは， そのまま 受けつ が 
れ てお り ますので， 新しい 機能が 提供され ている からと いって 何もし リ 込み をす る こと は あ リ 
ません， 

それよ リ も 新たな 挑戦 意欲が わいて く るので は あ り ません か. 

さて， 本書 は， BASIC 言語 を 使って PC— 9800 シリーズ を 使いこなして いくため の， "プ ログ 
ラミングの 手 ほどき" として 編集され， 本書 を 読む 上での 特別な 知識がなくても 勉強で きる よ 
うに 配慮して おり ます. 

ただ 「プロ グラム を 作る」 と い うこと は， 「人間に とってよ り 便利な 道具 を 使う」 ことで も あ 
ります， ですから， ちょうど あなたが 初めて 自転車に 乗る ときに， 何回も 何回も 転びながら， 
体で 覚えて いった こと， そして 縦横に 自転車 を 操縦で きる' ようになった ときのお び， 义， 徒歩 
のとき より も 飛躍的に 行動 範囲が 広がった ことの 便利 さ， 



美しい 音色 を 出す ための 基本の 繰り返し 

そうな のです. 新たな もの を 学ぶ ための 努力， この 努力 を 忘れずに 持ち続けて いただければ， 
き つと 高度な PC — 9800 シ リーズの 機能 を あなた 自身の 手で 引き出す ことができる のです， 
何度もい うようで すが， 本書で は， 

① 「16 ビッ トパ ソコン をた だお もちやの ようにい じく り 回す だけで はもった いない」 

② 「16 ビッ ト パソコン を 真に 人間の 役に立つ 道具と して 使いたい」 

この 2 点 をバッ ク ボーンと して， 自分で 簡単な ブロ グラムが 作成で きる 水準に 達する こと, 
PC — 9800 シ リ 一 ズの 操作が 行え る こと を 学習の 目標と して 編集いた しました. 
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本書 を 利用す るに あたって 

本書 を 書く に 当つ て 使用 し た PC— 9800 シ リ 一 ズの 機器 は 次の 通 り です 



PC-9801 シ り一 ズ 本体 及び キー ボ一 ド 

ディ スプレ ィ 装置 

付属の 取扱い 説明書 及び マニュアル 



ま た, mtl し た 言語 は NU— 日本語 BASIC(86) です， 

なお， ディスプレイ 装置 は， 白黒 ディスプレイ でも カラー ディスプレイ でも 構いませんが， 
カラ一 グラフィック 機能 を 理解して いただく ために， 一応， 高 解像度 カラ一 ディスプレイ 装置 

を 対象に しています. 

なお， 本^ において は N 88 — 日本語 BASIC(86) を 起動す るまでの 操作に 関して は 説明 をお こ 
なって いません. 

N 88 — 日 本 語 BASIC(86) が 起動され， キー 人力が でき る 状態に な つ た 後の 操作 か ら 説明が 始 
ま り ます， 

N a8 — 日本語 BASIC(86) の 起動の しかたに 関して は， 本書と と もに 本体に 添付され ている 
「ガイドブック！ を 参照して ください. 
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第 1 節 B A S I C に 触れる 



会話 事 始め 



まず はキ一 ボ一 ドょ り 次の よ うに キー入力して みて 下さい, 



スべ— ス ：： 1 — 





fji] (リタ一 ン キー） を 押した とたんに， 画面に は 次のように 表示され ましたね 



PRINT 1+2 

3* 

0K 



答が ここに 表示され ます 



同様に 次の よ うに キー 人力し ます, 



PRINT 150-50 
100 

OK 



う ま く 画面に 表示され ました 力 \ もしう まく 出来なかった 入 は 



二な つて レ、 ま 



00Q00OQ0LU 曰 と 人力した ままに 

せんか， 実は さきほどの 例で は 最後に， リタ一 ンキ一 1<^)1 を 押してい ましたね ♦ もし 押して 
いない 人 は M を 押して 下さい. 
同 じ 画面に な り ま したね. 

すなわち 命令の 最後に は 必ずり ターン キー ["<^] を 押す 必要が あり ます， 



以下， 本 害で は 特別な 指定がない 限り， 

PRINT 5 + 4 

という 書き方 をし ますが， t々J] がない からといって リターン キー を 押さなくても よいので 

^^^^^^^^^^ 



はあり ません， 必ず 押して 下さい * 



ダイレク トモ一 ド によ る プログラムの 作成 



今， BASIC の 命令の ひとつで ある PRINT 命令 を 使って みま した. キ一 ボ一 ド からこの 命令 を 
キー入力 すると， すぐに 結果が 出ました， 

ちょうど 電卓 的な 使い方で すが， このような 使い方 を ダイレクト モード （直接 実行 形） とい 
い， BASIC の 特徴の ひとつに なって います * 

これと 対応し， もう ひとつ プログラム モード （間接 実行 形） といわれる 使い方が あります. 
この プログラム モー ド による プロ グラムの 作り方 は 第 2 節で 学習す る こと と し， ここで は ダイ 
レクト モ一 ド による プログラム 作り を 学習し まし よ う， 
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PRINT 命令に^ リ ます. 次のように キー 人力し ます, 



PRINT 3*5 

15 
OK 



乗算 記号と して 使います 



PRINT 命令 を 用いて， 次の 問題 を 考えて みましょう 




し 



田 中 君， 伊藤 君， 石 井 君の 身長 は それぞれ 156cm， 168cm, 172cm です， 3 人の 平均 身長 は 
幾らになる でし よ うか， 



165 

0K 



(156+168+172)/3 
333 し 



除算 記号と して 使います 




はじめての 命令の 使い ごこ ちはい かがでした か， 
それで は 命令の 使用 上の きま り について ま とめ ましよ う. 
PRINT 命令の まとめ 

PRINT 命令 は， その あとに 続く 式に よ リ 計算 を 行い， その 結果 を 直ちに ディスプレイ 画 
面に 表示す る 命令です. 



書き方 - 

- - J 

PRINT 式 



ヽ 



ノ 



計算に 使用で きる 記号に は， 次の ものが あり ます. 




加算 



減算 （-) 
乗算 （x) 

除算 (+ ) 
べき 乗 

剰 余 



+ (プラス） 
― (マイナス） 
* (アスタリスク） 



(スラ 



ッンュ 



) 



■ ■ i 4 * 



A (やまがた） 

MOD 




BASIC で 用いる 演算 記号 



また * PRINT 命令の 式の 部分に "（クオ一 テ一シ ヨン マーク） で 両方 をく ぎる と， 次の よ 
う な 文字の 表示 を 行う こ とがで き ます. 



NT"OHAYO M 
Y0 ^ ~ 



"(クォーテーションマーク） で 囲まれた 中の 文卞 



翁 



PRINT 命令の 簡略 形と して，？ （疑問符） を 用いる こと も 可能です, 
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？ 2*2 

4 
OK 



r 



r 



注意 



飞 



通常， 私達 は 乗算に は 「X」， 除算に は 「 +」 の 記号 を 用いて います 力 S 前者 「X」 は 英文 
字の ェ ッ クスと 混同し やすい こ と， 後者の 「 +」 は ディ ス プレイ の 表示で きる 文字に ない こ 

とから， それぞれ 「* (アスタリスク）」 「/(スラッシュ）」 を 用いる ことにし ています. 

また， べき 乗 も， 例えば 4 5 (4 の 5 乗） と 書きます 力、 これ も 表示で きません， そのた 
め 4 A 5 と 表現す る 訳です. 



さて， 複雑な 計算に なると， 計算の 途中 結果 を 憶えて おいて， その 値 を 後で 使う という こと 

はよ くあります. 

このよ うな 問題 をと り极 つた ものです， 





a = ( 5 + 3 ) 2 b = 



6 — 2 )X a 
a -10 



を 計算し， a の 値と b の 値 を 求めなさい. 



LET A= (5+3) A 2 
OK 

LET B=(6 - 2)*A/(A - 10) 
OK 

PRINT A 

64 
PRINT B 

4.74074 
OK 



令 



計算の 答 を A へ 代入 
計算の 答 を B へ 代入 

A を 表示せ よ 
A の 値 

B を 表示せ よ 
B の 値 




LET 命令の まとめ 



LET 命令 は， 次に 続く 式の 左辺の 変数に お 辺の 計算 結果 を 代人し な さい， という 命令です. 



r 




LET 変数 名 二 式 



なお， LET は 省略が 可能です, 
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f 》 主意 ^ 

式の 中の 二の 記号 は， 数学で いう 等号と は 意味が 違います. 

BASIC で 使われる = の 記号 は， 「代入せ よ」 という 意味です， 

変数と は， 値 を メモリに 記憶して おく 場所で あり， 変数 名と は， その 場所に つけられた 
名前です. 

ですから， C 二 C+1 の 意味 は 「今までの C に 1 を 加え， その 値 を 新しい C の 値に しな 
さい」 という ことです. （LET は 省略され ています） 

これら を 代人 文と も 呼んで います. 
v ) 



ディスプレイ 画面 イメージ を 変えて みる 



さて， 次 は プログラム 作リ と は チヨ ッ ト 離れます が， 皆さんが 本体の 電源 スィ ツチ を ON にして 

以来， 见 つづけて きた 画面が あります， この 画面 イメージ を 変えて みません か • 

それで はまず， 今， 写し出され ている 文字の 色 を 覚えて おいて 下さい. 
次に， 次のように キ一 人力して みて 下さい， 

CONSOLE h し f 

COLOR 4 

OK 

そして 何 か 適当な 文字 をキ一 入力して みて 下さい， 
文字の 色 は 緑色に 変わり ま したね， 

この 様に， COLOR 命令に 続いて 数字 を 指定す る こ とに よ リ 画面の 色 を 変える ことができます. 



COLOR 0 黒 

1 青 
2 赤 

3 ■ '…紫 

4 緑 

い… 水色 

6 黄 

7 白 



な お， CONSOLES 令に ついては 第 6 章で 説明 します, 
それで は 最初の 色に 戻し ましよ う. 
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COLOR 7 
OK 



次 は 画面 上に 表示す る 文字 数の 変更です. 
さあ， キ一 人力して みて 下さい， 

WIDTH 80,25 
OK 

何 か 適当な 文字 を 何 行か キ一 人力して みて 下さい， そして 引き続き， ？欠 のように キー 人力し 
ます. 

WIDTH 40,2(3 
OK 

引き 統き， 適当な 文字 をキ一 入力し ます. 

どうでした 力、. あなた は どちらの 画面が 気に入り ました 力、. 

このよう に 画面に 表示で きる 文字 数 を 変更で きます ので， あなたが 見易い と 思う 画面 表示が 選べ 
る 訳です ね， • - 

SWIDTH 命令の ま とめ 

WIDTH 命令 は 画面に 表示す る 文字の 行数と 桁 数 を 指定す る 命令です. 



r 



— § さお 

WI DTH 桁 数 ， 行数 

80 t 25 

しまた は 



しまた は 



40 20 



WIDTH 命令で 指定で きる 画面 は 4 種類の 組み合わせ 方が あ り ます， あなたが 見易い と 思う 
画面に して 下さ レ、， 
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キーの 押 し 間違い を 直す に は 



さて， 今まで 何 べん もキ一 操作 を 行って きました が， 本書の 例の 通り， 間違えずに キー 人 
力す る ことができ ました 力、. それとも ピ 一という ブザーの 音と と もに エラ一 • メッセ一 ジを表 
示されて しまい ま した か， 
でも 今まで は， 最初から キー 人力 をし なおす ことによ り 何とか やって これ ま した， 
しかしながら， 一生 懇命 （（カツ コ） や" （クオ 一 テ一シ ヨン） の 記号 を 探し 当て， 何とか キー 
人力し 続けながら も 最後の 1 文字 を 間違えて しまった ために， 最初から やり 直す の は 何と も惜 

しい 気持が しました ね， 

そこで ここで は， 今キ一 入力して いる 内容 を 生かし， 間違い 部分 だけ を 修正す る 方法 を 学習 

しまし よ つ * 

ins][_delJ[^ | f^~] f - ]f i ] は， 誤り 修正の ために 有効な キーな のです， 
早速 はじめ ま し よ う， 

それで は， わざと 間違えて， 次のように キー 人力して みて 下さい. 
ただし 1^ (リターン キー） はま だ 押さないで 下さい. もし 既に 押してし まった 方 はブザ 
—のお 世話になって しまい ま したね， も う 一度 人れ 直して 下さい， 



CALAR 4 



カー 



力一 ソル は 4 のす ぐ 後ろで 点滅して ますね， 

CALAR とキ一 インして しまつ た 訳です が， 本当 は COLOR と 入力し たかった とします. 
修正に 人り ましょう. 

① 先ず 1 — ) を 6 回 押し， 先頭から 2 番目の A に 力一 ソル を 合わせます， 

② そして キ一 ボ一ド から 0 を 1 回 押します， A が 0 に 変り， そして 力一 ソルが 次の 文字 L 
の 所に きま した. 

③ L は そのままで いいです から 〔― | を 1 回 押し， 次の 修正 部分の A の 位置に 力一 ゾ 
ルを 合わせます. 

④ A を 0 に 直す ため， 0 を 1 回 押します， A が 0 に 変わり， 力一 ソル は R のと ころに きて 
います， 

⑤ これで 間違い 部分 はなく なりました， [^を 押してみ ましよ う， 



今の 例で は， 同一 行に おける 修正で したから — — を 使って 修^ を 行った 訳で 





す. T 1 は 行 を 合わせる ために 用いる こと は 分ります ね. 



次 は [INS II DEL I の 利用 法です， 

今， PRINT 命令 を 押そう と して 次の よ うに 押してし まいました. （| <JJ] はま だ 押してい ませ 



ん，） 
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力一 ソル 



さて， 力 一ソル は N の 直後で 点滅して います. 本当 は PRIN とキ一 インしたい 訳です ね 
それで は 一修 正し ましよ う， 

(D | ― 1 を 1 回 押し， N に 力一 ソル を 合わせます. 



署 



② I DE し〕 キー を 1 回 押します， I が ひとつ 消えます， なお， カーソル は 引き続き N の 所に 
位置づけられ |DEL| による 削除が 可能な 状態に あります. 

prin となり， こ れで修 e が 終 リ ましたの で, 々一ソル を もとの 位 [&： に m す た め 

を 1 回 押し， N の 次に カーソル を 位置づけます. 
® 引き続き， 以降の キー入力 を 行います. 






です， PRINT5 + 3 を 押そうと して， 次のように 押してし まいました, 



PRIT 5+3 

、 ~ 力一 ソル 
それで は修 1卜: しま しょう， 



广 





① ― を 5 回 押し， カーソル を T の 所に 位置づけます， 

を 1 回 押します. （画面 変化はありません） 
(D 挿入したい 文字 N を 1 回 押します. I と T の 間に N が入リ ましたね. 

なお， カーソル は 引き続き T の 所に 位置づけられ， 〔INS I による 揷 入が 可能な 状態に 
あります， ですから 引き続き 文字 を揷 人す る ことができます， 揷 人の 終了 は 力一 ソルの 位 



、 



置 を 動かす ことによ り 行われます. 



3 

5 



丁 

N 
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第 2 節 プログラムの 作成と 実行 



第 1 節で は， BASIC の 手始めと して， 電卓 的な 使い方 —— ダイレク トモ一 ド—— による 命令 

の 実行 を 学習して きました. 

この ダイレクト モードで は， キ一 人力した 命令 を その 場です ぐに 実行して， 即座に 結果 を 得る 

こ とがで き ました， • 

この ダイレクト モードで 実行す る こと は， すぐ 結果が 得られる メリットが あります 力、 その 

反面， 同じような こと を 何度も 実行 させたい 場合 は， その都度， キ一 人力し なければ ならず， 

不便 さ を 感じます ね. 

また， このような 使い方で は， 人間の キー入力 速度に 左右され， コンピュータ 本来の 機能 を 

発揮させる ことができません， コンピュータが これほどまでに 発 K してきた 理由 は， 人間に と 

つ て 便利な 機械だった か ら です. 

コンピュータの 超 能 力 発揮の 秘密 でもあった， 仕事の 手順 を 指示 し た プロ ダラム をい つたん 

覚えさせ さえ すれば， あと は コンピュータが この プロ ダラムに 従って， 速く 正確に 何度でも 仕 
1v を 行 うこと がで きる のでした ね， 

本章で は， コンピュータ のもう ひとつの 使い方で も ある プログラム モー ド （間接 実行 形） での 
プロ ダラムの 作り おにつ いて 学習し ます， 




ダイ レク トモ 一 ド 

これ は， コンピュータが， 1 個の 命令 を 受け取る と， ただちに それ を 実行す る 形式 
です， その 場 かぎりの 計算 や， 記憶す る 必要の ない もの は， ダイレク トモ一 ドで 実行 させ 
ます. ダイ レクト モー ド では， 1 行ず つ 実行して い く ので， プロ グラム は メモリ に 残り ま 
せん， 
プログラム モー ド 



の モードで は， すぐに 命令 を 実行せ ず， メモリに 記憶し ます， ですから， 複数個の 命 



令が 集まって， 1 つの 処理 手順が 作られる こと にな リ ます. この 命令の 集ま リ が 「プロ 
ダラム」 です. 

プログラム は， 実行が 終わっても， メモリ に 消えずに 残って いるので， 何回で も 実行て 

きます， この 点が ダイレクト モードと 異なります, 
v „ , _ 



，、 



プログラム を 作る 



BASIC の 命令 を， その 場で 即座に 実行す るので はなく， いったん プロ クラムと してお' K する 
プログラム モ一 ド にす るに は， どのよ う に すれば よ いのでし よ うか， 
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今迄 学習して きた 命令の 扱いに 対し， 単に 命令の 前に 番号 を 付けて 人力 すれば よいので す 
それで は 早速 やって みま しょう， 



r 




,2 



, ( 6 - 2 ) x a 
b =— 



a 二 （5 + 3 , " a -10 

を 計算し， a の 値と b の恢を 求めな さレ 



この 問題 は， 第 1 節で 既に ダイ レ ク ト モードで 実行して いますね 
プロ グラム モ一 ド では 次の よ う にな り ます， 



NEW 

10 A=(5+3) A 2 

20 B=(6-2)*A/(A«10) 

30 PR I NT A 

40 PRINT B 

50 END 

RUN 
64 

4,74074 
OK 



、 



コ ン ピュー タ に^: えこ ませた 



手順 



(ブロ グラム） 



実行 指示 

A の fit 
B の 値 



この プログラム 例 は， 第 1 節の 問題と 同じです が， プログラム モードに する ため， まず 行番 
号と いわれる 番号 を 付けた 5 行の 命令 を コンピュータに 党え させます. そして， プロ グラムの 実 
行 は RUN 命令 をキ一 人力す る ことにより 順次 命令が 実行され， 最後に A, B の 値が 表示され， 
プロ グラムの 実行 は 終了 します. 



r 




番号 



命令文 



• BASIC の 各 プログラム 行 は， 行 番号で 始まらなければ なり ません， 
， 行 番号 は 1 から 65529 までの 整数です， 

'行 番号 は， プログラム 行 を メモリに 格納す る 順序 を 示し， 実行 も 行 番号の 若い 方から 行 
われます. 




NEW 命令の ま とめ 

メ モ リ 上の プロ グラム を 消去 します, 




NEW 
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END 命令の ま とめ 

プログラムの 実行 を 終了させます 



書き方 



END 



j 




RUN 命令の ま とめ 

メモリ 上に ある プロ グラムの 実行 を 開始させます 



書き方 



RUN 



行 番 



， 



行 番号 を 指定す ると， その 行から 実行が 始まります， 

行 番号が 省略され た と き は， 一番 小さい 行 番号から 実行 を 始めます 



プログラムの 表示 



今， 実行した プログラム は， メモリ 内に 残って いる 限り， 何度でも 実^す る ことができます 



試して みまし よつ 



まず， メモリ に プログラムが 記憶され ている か 確認して みまし よ う， 

現在 人力され ている プロ グラム を， 画面に 表示させる に は LIST お 令 を 使います 



3" 2 

2)*A7 (A - 10) 
A 
B 



引き続き， RUN と キー 人力して 下さ レ 

RUN 
64 

4.74074 
OK 



同じ 結果が 得られ ましん 



、 




LIST 命令の ま とめ 



+ 一 T 丁 

5 6 N N 



II = R R 

T A B p P 

S 

I 0 0 0 0 0 K 

L 1 2 3 4 5 o 
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書き方 h 



LIST 開始 行 番号 一 終了 行 番号 



行 番号が 省略され た 場合 は， プロ グラムす ベて を 画面 表示し ます 



実行時に データ を 与える プログラム 



今迄 取扱って きた プロ グラム は, 計算 データが 予め プロ ダラムの 中に 組み込まれた 形式の も 
のでし た. 

ここで は， 実行時に 計算 データ を 与える ことにより， 橾リ 返し 実行で きる 形式の プログラム 



を 学習し ましよ う 



、 

o 



例 



身長から 求める あなたの 標準 体重 は 何 kg でし ようか 
男性の 標準 体重 kg 二 身長 cm — 110cm 



j 




ましょう. （行 番号 60 の END1<^J] を 人力した あとで STOP を 押して 下 



W 

TO 

INPUT "ナ マエ' 'ぶ N$ 
INPUT "シン チ 3 ゥ' つ T 
R=T- 1 10 

PRINT "ナ マエ-'' :N$ 
PRINT "【J ソ ウタ イシ "コゥ =";R 
END 



プロ グラムが 完成し ま した, それで は あなたの 標準 体重 を 求めて みま しょう 



実行させる ために は， RUN でした ね. 

RUN * RUN 命令の 人力 

t7X? f ^ 人力 待ち 

力 —— 、, 



画面に はナ マエ？ が 表示され， 力一 ソルが 点滅して います • これ は INPUT 命令 を 実行して 
あなたの 名前 をキ 一ボー ド から 入力して く るの を 待って いる 状態です， 
あなたの 名前 を キー入力して みて 下さい， 
名前 は 英字で も カナ 文字で も かまいません. 

名前 を キー 人力す ると， 即座に 次の INPUT 命令に よる 入力 待ちと な り ます， 
RUN 

ナ マエ？ サ トク イチ 0ゥ 
シン チョウ 7 ■ 



力一 ソ ノレ 



EU0000000K 

NA123456TO 
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身長 をキ一 人力した とたん， 最終的に 求める 答が 即座に 表示され ま した. 

RUN 

ナ マエ？ サ トウ イチ ロウ 
シン チョウ？ 16 了 

ナ マエ =サ トウ イチ □ ゥ 
リソ ウタ イシ" コゥ = 57 

0K 

これで， ひとり 分の 理想 体重の 計算が できました， 繰り返し 計算が 可能と いう こと は， 引き続 

き RUN 状態に 戻る という こと です. 
試しに RUN 命令 を キー入力して 下さい 



RUN 

ナ マエ？ 



確かに 次の 人の 計算が でき そ う です ね， 続けて 計算 をして みて 下さい. 
AUTO 命令の まとめ 
行の先頭 に 自 動的 に 行 番号 を 付加し ます， 




AUTO 行 番号， 増分 



• 行 番号 を 最初の 番号と し， 増分の 値を增 やしながら 行 番号 をつ けて いきます, 
• 行 番号， 増分と も 省略され たと き は 両方と も 10 がと られ ます. 
INPUT 命令の まとめ 

キ 一 ボ一 ド か ら 人力され る デー タ を 変数 に 人れ ま す， 




〔"文字列" ；] 変数 名 



(注） 〔 〕 内 は 省略 4 

• INPUT 文が 実行され ると， 画面に 入力 を 要求す る 「？」 が 表示され ます， 

これに 続いて キ一 入力され た データ を 变 数名の 値と します， 
'文字列 を 指定す ると， 「？」 の 前に 文字列が そのまま 表示され ます， 
• 入力す る データの 型 （数値， 文字な ど） と 変数の 型 は 一致して いなければ なりません， 
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ヽ 



変数の 種類 （型） … 変数 値と して 数字 や 文字 データ を 扱う ことができます. また， 種類 

も 次に 示す 4 種類が あり， どの 種類で あるか は 変数 名の 最後に 付けた 
文字で 区別し ます. 

整数 型 % 

単精度 実数 型 …… ！ 
倍精度 実数 型 …… # 
文字 型， …… ， …… $ 



(詳細に ついては リファレンス * マニュアル を 参照して 下さい) 




PRINT 命令の 補足 

第 1 節で も PRINT 命令に ついて 説明 し ま したが， ここで は 追加され た 機能に ついて 説明 
します. 



グ 




PRINT 式； 式 



、- 



4 



式 を 複数個 書く ことができます， その 場合 は， 式と 式の 間 を； （セミコロン） で 区切ります 
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第 3 節 プログラムの 修正 

さて， 今, 作成した 理想 体重 を 求める プログラム を 再度 見直して みます と， 画面に 表示され 
ている 結果 は， 名前と 理想 体重 だけです. 
折角， 自分の 身長 をキ一 入力した 訳です から， それ も 表示した いです ね， 
それで は， さきほどの プロ グラムに 身長 も 表示で きる よ う に 変更して みま しょう， 

① ま ず LIST 命令で 画面に プロ グラム を 表示 します. 



の プログラム は 次の 図に 示す 処理, 順で でき 上がって いました 



* 



30 行 目 



40 行 目 • 



50 行 S 



filti を キー 人力 
して 卜さい 






身 IX を cm 

で 人力し 


の 単位 
て 下さい 






理想 体重 二 
身長 一 110 の 計算 






fi 前 の 表 示 






理想 体重の 表示 



身長のお 示 



き 追加 



次に 修正 場所 を 考えます. 



身長の 表示 を 追加す る 場所 は， 名前の 表示 の 次 あたりで も 構いませんね, 



追加したい 項目 を B AS I C の 命令に おきかえます, 



PRINT "シン チヨ ゥ 二 ； T 
元と なる プロ グラムに 追加し ます. 

今， 追加したい 場所 は 40 行と 50 行の 間です から， この間に 挿入で きる 行 番号 を昆 つけ 出し 
のように キ一 人力し ます， 

45 PRINT ' 'シン チ 3ゥ='、丁 

追加が う ま く なされて いるか どうか を 確認す るた めに， 再度 LIST 命令 をキ一 人力し ます 



INPUT "ナ マエ "'ま 
INPUT "シン チョウ'' ； T 
R = T - 1 1 0 

PRINT 'け マ i=";N$ 

PRINT "シン チ 3 ゥ =":T 

PR INT "リソゥ夕ィシ、、コゥ=";8 



s 



0 0 0 0 5 0 0 

12 3 4 4 5 6 



N 

R 



② 




④ 
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試しに， RUN 命令 を 実行して みて 下さい， 
実行 結果 も 上々 です. 

再度 プロ グラム を 見ます と， あとから プロ グラム を 修正した こと を 行 番号が 物語って いま 
すね. 

また， 何回も プロ ダラム を 修正す る ことによって 揷入 できる 行 番号が なく なって しまう 等 
の 不都合が でて きます， 

そのため， 行 番号 をき れいな 行 番号に ふ り 直す RENUM 命令と い う 便利な 命令が 用意され 
ています. 




r 

RENUM 



実際に キー 




プログラムの 修正の 仕方 



プロ グラムの 修正の 仕方に ついて ま とめて みま しょう， 

□] 現在 ある 行の 内容 を 変更したい 時 は， 同じ 行 番号 を 使って 新しい 行 を 入力し ます. 

例えば， 女性の 理想 体重 は 身長— 105 ですから， も しさき ほどの プロ ダラム を 女性の 場合の 
プロ グラムに 変更す る 場合 は， 次の よ う にキ一 人力す る ことにな り ます， 
30 R= 丁-〗 05 

m プロ ダラムに， 新しくお 令 文 を 追加したい 時 は, 追加したい 行間の 2 つの 行 番号の 間の 数 
値 を 新しい 行 番号に すれば よ いのです. 

さき ほ どの 45 行 目の 追加 方法が これに 当り ま す. 
S] 不要に なった 命令 を 削除す る 場合に は， 次の 2 つの 方法が あり ます， 

① 削除したい 行が あれば， 行 番号 だけ を キー 人力して 1<^1 を 押します， 

② 何 行に も わたって 削除す る 場合 は， DELETE 命令 を 使います. 




DELETE 開始 行 番号 一 終了 行 番号 



ン 
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第 4 節 プログラムの 保存 



さて， 今， 一生 懸命に なって 作って いる プログラム は， メモリ 上に 記憶され ている 訳です. 
ところで メモリ 上の プログラム は 電気 的に 記憶され ています ので 本体の 電源 を 「OFF」 にす る 
と， プロ ダラム は 跡 かた もな く 消えて しまいます， 

また， NEW^ 令 を 実行しても 同様です， 

そのため， 必要に応じて 繰返し 実行す るよう な プログラム は， 別の 場所へ 保存して おく 必要が 
あります. 

代表的 な プ 口 グ ラ ムの 保存 方法に ついて 説明 します. 



m プログラム を プリンタ 用紙に 印字す る. 

メモリ 内に ある プロ グラム を， 全部 または 一部 を プリ ンタを 通して 用紙に 印字す る こと に 
より， 保存しょう という ものです， 




LL I ST 開始 行 番号 一 終了 行 番号 



• 印字 内容 は LIST 命令で 画面 表示 した ものと 全く 同じ も のです， 
23 プログラム を フロッピィ ディ スクに 保存 （セーブ） する. 

メモリ 内に ある プロ グラム を， フロッピィ ディ ス ク 装置 を 通して フロッ ピィ ディ ス ク 媒体 

に 保存して おこう という ものです. 
この 保存 を 一般に は セーブと 呼んで います， 



書き方 



ヽ 

SAVE "ドライ ブ 番号 ： ファイル 名 



r 

、 



* ドライブ 番号 は フロッピィ 媒体の 人って いる 装置の 番号で， ファイル 名 は プログラムに 
つける 名前です， 

，フ アイ ル名は 9 文字 以内です， 
例えば， 今， メモリ 上に 記憶され ている プログラム を 1 番の ドライブに 人って いる フロッピ 
ィに セーブしたい， また， 名前 を REIDAI としたと きの キー 人力 は 次のように すれば よいので 
す. 

SAVE " 1 ： RE IDA に 
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メモリへの 格納 



一方， セーブし ている プログラム を メモリに 格納す る 場合 は， LOAD 命令 を 用います. 



r 



書き方 



ヽ 



、■_ 



LO AD "ドライ ブ 番号 ： フ ァ 




• フ アイ ル名は セーブの 時に つけた 名前です， 

さ き は ど セーブし ておいた プロ グラム" REIDAI" を 口一 ド する 場合の キ 一人力 は 次の よ う に 
なり ます， 



LOAD "1 ： RE IDA に 



ところで， 今迄 本体に 何ら かの 勅 作 を 起こさせる ネ际を 「命令」 と 呼んで きました が， 実際に 
は 「文」 と 「コマンド」 とに 区別され ます， 

• 文 "…プロ ダラムの 中で 用いられる 命令です， 今迄で てきた もので は， "PRINT", 

"LET" , "CONSOLE" , "COLOR" ， "WIDTH" ， "END" 等 が これに あ た り ます • 

，コ マン ド …一 プログラム 全体 あるいは ある 部分 を 単位と して 処理 を 行う 命令です. 今 

迄で できた もので は， "NEW","RUN" t "LIST","AUTO","RENUM", 
"0£1^1£：，，，"しし13丁"ノ'5ん¥£"，"し0八0"等がこれにぁた リ ます. 
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第 1 章で は， 操作 法 を 中心に プ ログ 
ラムの 作り 方 等に ついて 学習 しまし 

た， 本^から は， 実際の プログラム 

例 を 通して， プログラム 作成の 基本 
テクニック を 学び ましよ う. 



r 本章の ポィ ン 卜 . 

。 データ 集計の 仕方 

。 プリ ンタ への 処理 結果の 印字の 仕方 

。処理 を 繰り返して 行う 方法 

L J 



第 1 節 データの 集計と 一覧表の 作成 



この 節で は， 試験の 点数 表 を 作成す る プログラム 例で， データの 集計と 一覧表の 作成 方法 を 

学びます， 

[1] 試験 結果一 黧 表の 作成 （例題 2-1) 



r 



r 



例題の 概要 



飞 



これからみ えていた だく 例題 は， 次の ような データ を 基に， 試験 結果 一覧表 を 作成す るプ 



口 グラムで 1 す. 



試験 採点 結果 データ （人力 データ） 



受験番号 


氏 名 


国語 得点 


数学 得点 


英 得点 


101 


ァ オヤ マ タロウ 


85 


70 


80 


102 


ァ ライ イチ ロウ 


75 


80 


90 


103 


イワ タ ユキオ 


70 


75 


85 


104 


ゥ エダ マサオ 


100 


95 


70 


105 


ェ トウ ヤス ヒ コ 


90 


80 


65 


106 


ォ オタ カツ ォ 


80 


75 


loo ！ 


107 


力 トウ タカシ 


90 


90 




108 


キ トウ ミチオ 


75 


60 


65 


109 


サ トウ アキ ヨシ 


80 


80 


100 


110 


シ ミズ シン イチ 


100 


100 


100 



◎ 試験 結果 一覧表の 印字 形式 




用紙の 縱 位置 を 表す 数字 （行） 

(注） x〜x で 示されて いる 位置 は デ一タ を 印字す る 位置です 



処理の 条件 



国語， 数学， 英語 は それぞれ 100 点 満点と します * 

各人の データ は， 1 行に 印字し， 各 印字 行の 間隔 は 1 行 あけます， 

平均点 は， ^計 +3 で 計算し ます. 小数 部 は 切り捨て， 整数 部の み を 印字し ます 
* 全 舅 （10 人） の 得点 データ を 印字したら ， プログラム を 終了し ます， 



暑 



琴 



に 



プログラム 作成 上の 注意点 

プロ グラ ム では， 10 人の 得点 デ一 タ を 試験 結果 一覧 として 印字し ます 
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f^t\ ^均の^ 算 



乂験^ ：1 - 果 M 

1 行 印字 



1 人せ の 

データ を 人力 



1 件 分の 処理 は， 受験番号， 氏名， 国語 得点， 数学 得点， 英語 得点 を 入力し， 合計， 平均 を 

計算し， それら を 1 行に 印字し ます. そして， これ を 10 回 繰り返す と一 覽 表が できます. プロ 
グラム を 考える とき は， 1 件 分 （この場合 は 1 人 分） の 処理 手順 だけ を 考えて， それ を 10 件， 

操り 返し 行うよう にします， 処理 手順 を 図で 表すと 次の よ うにな リ ます. 

Iftl^M? 複数 件の 処理 



1 人 分の 

デ 一 


タ を 人力 


、 




台 計 t 平均の 計算 







1 行 印字 



BASIC では， 繰り返し を指不 する 命令と して， GOTO, FOR〜NEXT などの 命令が 用意され 
ています. 

m プログラム 例 

次に プログラム 例 を 示します. 実際に プログラム を キーボードより 人力し， 実行して みて ド 
さい， 



へ „ 



101, ァ オヤ マ タ 0 ゥ， 85-70^80/ 102, 7 ライ イチ 0ク，75,80,90 
103, ィ フタ コ キォ /70,75-85, 〗04, ゥ エタ * マサオつ 1 00 , 95 ^ 70 
ェ卜ゥ ヤス ヒ: 3-90-80-65, 106- 才才タ カツ ォ， 80 , 75 - 1 00 
107, 力 トウ タカシ- 90, 90, 90, 108, + トウ ミ'： T ォ， 75, 60, 65 
)09, サ トウ アキ 3 シ， 80,80, 100'1 10, シミ； T シン イチ， 100, 100, 1(30 
TAB (27)〗" シ ケンケ 7 力 ィ チラ ン' ， ：LPFHNT 
" ンコ， ゥ シ メイ ，々つ 

LPRtNT TAB (45) ： " スゥカ * ク i ィ rr コ* ゥケィ ヘイキン" 



DATA 
DATA 
DATA 
DATA 
DATA 
LPRI 
し PR 



0 FOR l-I 丁 0 t0 
1 10 READ BANCO, SHtME 1$, TEN! 
120 LPRINT TAB (6) : BANGO; 



30 
140 
150 
I 60 



,TEN2,TEN3 

7> ； SHIME l$ : TAB(37) ； TENI ； TAB 



(47) ； TEN2;TAB(54) ； TEN3 



130 LPRINT TAB (62) ； TEN 1 +TEN2 + TEN3 ； TAB (70) 



NEXT 
END 



I 





操り 返し を^う 流れ 
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それで は， プログラム を 分けて 見て いきましょう, 



① 



10 DATA 

20 DATA 

30 DATA 

40 DATA 

50 DATA 



/7 才ャ 7 タ 0 ゥ #85, 70,8(3/ 102, ァ ライ イチ 0 ゥ， 75 , 80 , 90 
103- イワ 夕 ュ*才-70'75,85' 104/ ゥ エタ * マサす， 1 00 # 95 , 了 0 
105,1 トウ ヤス ヒコ， 90 ん 80, 65, 106, 才ォ夕 力 7 ォ ，80, 75 ,100 
107, 力 トウ タカシ， 90, 90, 90, 108, キ トウ ミチオ， 75, 60, 65 
109, サ トウ アキ 3 シ， 80 メ 80, 100, 1 10- シミ； T シン イチ， 100, 100, 100 



デーヌ 



各行の 最初の ！DATA」 は， データ を 定義す るた めの 命令です. 

ここで は， 試験 データ （人力 データ） が 定義され ています. 10 人 分の 受験番号， 氏名， 国語 
得点， 数学 得点， 英語 得点です. 




60 LPRINT TAB(27):" シ ケン ケプカ ィ チラ ン"： 

7(3 LPRINT " パ * ン コ* ゥ シ メイ コ クコ w " 

80 LPRINT TAB(45> に" スゥ 力， ク エイ： T IT ゥケィ ヘイキン" 

90 LPRINT 



V 



各行の 最初の 「LPRINT」 は， 見出し， 人力 データ， 処理 結果な ど を プリンタに 印 リ': させる 
命令です， ここで は， 一覧表の 見出し や 項 H の见 出し を 印字して います. 

60 行と 80 行の 「LPRINT」 で 指定され ている 「TAB(nri)」 は， 印字の 開始 位置 を 指定し ま 
す， この場合 は， プリンタ 用紙の 現在 行の 左端から 数え， 最初の 文字 を 印字す るまでの 間隔 数 
となります. 本 テキスト では， プリンタ 用紙の 左端 （1 桁 目） を 0 桁 E] として 数えて いくこと 

にします. 

つまり 60 行で は， 27 桁 目に 位置づけ， 27 桁 目から 引用符に） で 囲まれた 「ン 厶ケ厶 ン 厶ケ厶 
ッ厶カ AAA ィ厶チ 厶ラ厶 ン」 を 印';': する ことにな り ます， 

60 行 目の 右端に ある 「LPRINT」 と， 90 行 目の 「LPRINT」 は 改行 だけ を 行います. 
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@「LPRINT」 を 実行す ると， データ を 印字 後， 自動的に 改行し ます， しかし， ^ 
令の 最後に 「 ： 」 やに」 が 指定され ている と 改行せ ずに， 最後の 印字 文字の 次の 桁に 位置 
づ けられた ままに なって います， 




① 「TAB(nn)」 で， 左端からの 桁 位置 を 指定す る ことにより， その 桁の 指定 桁 位置に 位 
置 づける ことができます 力、 画面， プリンタ とも その 行の 左端 を 「0」 から 数え 始める 決 
ま リ となって います. 




(注） 「厶」 は 空白 1 桁 を 表わす 記号です 



i 



FOR 1=1 TO 10 

READ BANGO.SHIME l$,TENI ,TEN2,TEN3 

し PR I NT TAB (6) ； BANGO;TAB< 1 7) : SH I ME I $ : TAB (37) ； TEN1 ； TAB (47) ； TEN2 ； TAB (54) ； TEN3; 

LPRINT TAB (62) ； TEN 1 +TEN2 + TEN3 ; TAB (70 ) ； I NT ( (TEN I +TEN2 + TEN3) /3 ) 

LPRINT 

NEXT I 

END 



i ， 國國國 -wm - ~H 



100〜160 行 は， 10 人 分の 試験 結果 を 印字し ます. 110 行から 140 行が 試験 結果 を 1 件 分 入力し 

印字す るた めの 処理で， それ を 10 件 分 繰り返す （10 人 分の 印字 を 行う） 命令が 100 行の 「FOR」 

ネク ス ト 

と 150 行の 「NEXT」 です * 

100 行で 「 I 」 （変数） の 初期値と して 1 を 人れ， 150 行の 「NEXT」 
ます， 110 〜； 140 行の 処理 を 10 回橾リ 返し， 「I」 が 10 を 超えた， つまり 11 になった ところで， 
この 処理 は 終り ます， 



「I」 のィ 直 を 1 ふやし 



つま リ， この 例で は， 110 行から 140 行まで か， 1 から 10 まで 10 回 繰り返される ことになります， 
1 人 分の 処理と して は， 110 行の 「RE ん D」 命令で， 「BANGO」， 「SHIMEI $ 」，「TEN1」， 「TEN 
2 丄 「TEN3」 とい う 変数に 10 行〜 50 行で 定義され ている 試験 データ を 読み込み (記憶し）， 120 行 
で 所定の 位置に 印字し ます * 130 行で は， 3 科目の 合計と 平均点 を 印字し ます， 140 行 は 行間 を 1 
行 あける （空白 行） のた めの 命令です. 



テ ジ ャ 



ここで 平均点 を 求める 計算 式の 前に 「INT」 という 指定が あります 力、 これ は、 f 均 点と して 
'赚 (小数 部 を もつ 値） がで た 場合に， 整数 部分 だけ を 取り 出す 命令です， （処理の 条件と して 
平均点 は 整数 部 だけ を 印字す る ことにな つてい ます） 



f 均^ に、 

！ 76 
ヽ m 



\ 



言 




INT 




TEN1 

国語 得点) 



76 , 666 



75 




80 




75 | 



TEN 2 

(数学 得点) 



TEN 3 

(英語 得点) 




-^^H. ― ― -V M 



(合計) 



3 



0 0 0 0 3 0 0 

0 12 3 4 5 6 
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メモリ 



(ァ オヤ マ 'タ ロ^! 拿 @， ©， 102, ァ ライ イチ ロウ * 75, 80. 90 

/ 103, イワ タ ユキオ， 70， 75, お， 104， ゥ エダ マサオ， 100, 95， 70 

\ » 

1 109, サ トウ アキ ヨシ， 80, 80, 100, 110, シ ミ < シ ン ザ 手， 100. 1 00, 100 

、〜 

} 一〜 



120 行 

によ る 印字 




110 行 

によ る 入力 



102 




75 


80 


90 


245 


81 


103 




70 


75 


85 


230 


76 


10d 




100 


95 


70 


265 


88 


105 


ひゥ tltl 


90 


80 


65 


235 


78 




タ nvt 


80 


75 


100 


255 


8^ 


10? 


?»> 


90 


90 


90 


270 


90 


ioe 


♦ トウ ミ" 


75 


60 


65 


200 


66 


109 


サ トウ 7 夸 3* ノ 


80 


30 


100 


260 


36 


HO 


ytJ m y バ f 


100 


100 


100 


300 


100 



130 行 

による 印字 



140 行 
による 
空白 行 



r 




1 10 行の 「READ」 文 力 《再度 実行 される と， DATA 文で 定義 されて いる 次の データ （ 2 回目 
の 実行の 時 は 「102」， 「ァ ライ イチ ロウ」 〜「90」） が 続けて 入力され てきます， 

つまり， DATA 文で 定義され ている データ は， READ 文で 少しずつ 取り出しながら 
利用して いく わけです， 




力 一 

ヮ ヅ， ンャ— 



1 I 




入力 



処理 



出力 



プログラムの 基本 型 を 流れ図で 表わす と 右の よ うにな り ま /一 

す. i 

本章の 例で は 取り扱つ ていない 部分 もあります が， 繰り返 

し 処理 を 行って いる プロ グラム は， ほとんど 右 図の よ う な 形 
に な り ま す. 

各 処理に おいて は 実際に， どのようなこと を 行う のでし 
よう 力、， 以下に いくつかの 例 を 挙げてお きます. 



— — ―— 



0 



は じ 



り 







準 






1 



ァータ 

入力 





人力 テー タ 

印字 



項目 

見出し 印字 



見出し &J 子 

1 行 改行 



m 処理の 手順 

图 で 取り扱った プログラム 例の 実行 手順 を， もう 一度 まとめて みま しょう * 
ここで は， プログラム を 図 を 使って 表わして みます. 



右 図 を ご 鷺 下さい， これ は， プログラム 例 を 処理 ごとに 分 
けて 図で 表わした ものです， このように， プログラムの 実行の 
流れ を， 図 （記^") を 使って 表わした もの を 「フローチャート 
(流れ図）」 と 呼びます. 

処理の 手順と して は， まず 「大 見出し」， 「項目 見出し」 を 
印字して おきます. そして， 1 件 分 （例で は 1 人 分） の 処理 
を 実行し ます， 1 件 分の 処理 は， データ を 入力 後， その デ一 
タに 吋して 処理 を 行い （計算 等）， 結果 を 出力 （プリンタに 
印字） しています. これ を 何回も 繰り返せる ように 指示す る 
ことによって， 多数の データ を 同様に 処理して いく ことが で 
きる わけです. 

あ る 処理 結果 が 欲しい 時には， その 元になる 入力 データ が 

必要です し， その 人力 データに w して 必 要 な 処 理を 行って 
処理 結果 を 導き出せる わけです. この 手順 は， この プロ ダラ 
ム だけで な く ， 皆さんが これから 作成す る 多く の プロ グラム 
の 基本 型に な り ます. 



は じ め) 



洗車の 過程 



、 — 




—— 一— 一—^ ■ 一 一一 — 一一 一 —一 




r 



ヽ 



準 備 



テ一タ 
入 力 



処 理 



テーヌ 
出 力 



後始末 



* 



* 



ファ イノ 




(フ ロッ ピ ィ ディ スクの データ を 人出 力す る 際 必要) 



出しの 表示， 印字， 初期 i 罔 面の 表示 



D A T A 文で 定義 し たデー タ を R E A D 文で 人お 

マロ ッ ピィ ディ スクに 登録した データ を 人力 （次章で 极 います) 

キー ボー ド からの データ 人力 



ト算， 判断 （比較)， 移送 （データ を 他の 変数に 移す) 



プリ ン タ への 印字 
画面への 表示 

フロッピィ ディスクへの 登録 （書き出し) 



ファイル 後始末 （ファイル 準備に 対応す る 作業) 
合計 処理， 画面の 初期化な ど 



プロ グラム を 終わ り にす るか どうかの 判断 は， ^プロ グラムの 処埤 内容に よ リ 変わって きま 

す 力、 基本的に は 人力して く る データが なく なった 時に プログラム を 終了し ます. 
終了 かどう かの 判断 を 行う タイ ミン グは， データ 人力 を 行った 後に 行う 場合が 多くなる でし 

よ づ ， 

m 命令の 説明 

この 章で 新しく 出て きた 命令 を 見て いく ことにし ましよ う. 

① DATA 文 

READ 文で， ある 変数に 人力す る データ を 定義し ます， 




ヽ 



DATA 定数 〔， 定数〕 



DATA 文 を 書 く 時の 注意 は ， 次の と お リ です . 
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― 一一 *■， ■ m-m-w • き——— 晋 •** 一一 一一 一 — 一 一一 一一一—一一 & — — + — — — — — — — — — — — 一一 一一 — — — — — — — 國勵 一一 — —國 -— ■-■ —圍 

； • 定数 は コンマ （，） で 区切りながら 1 行の 範囲 （255 文卞 以内） で 指定で きます， 

！ • READ 文で データ を 読み込む 時には， DATA 文の 最初の データから 順番に 人力し， 
： 再度 R E A D 文 を 実行す ると， 最後 に 読み込 まれた 次の デ一 タ から 人力 されて いきま 
| す， 

： * プロ ダラム 中には， DATA が 何 行あって も かまいません. 各 データ は， プログラム 中 
I で連統 している データと して 扱われます. 

E 

■、 



② READ 文 

DATA 文で 定義 し た デ一 タ を ， 変数 名 に 読み込み ま す , 




READ 変数 名 〔， 変数 名〕 



ノ. 



READ 文 を 書く 時の 注意 は， 次のと おりです * 



• READ 文で 人力して くる データと， それ を 入れる 変数の 型 （数値， 文字） は 一致して 

いなければ なり ません， 
，変数 名 は コンマ （，） で 区切って 複数個 指定で きます. 




10 DATA 111， 2 2 2, 3 3 3. 4 4 4, 5 5 5 
20 DATA AAA, BBB, CCC 
30 READ A 1 , A 2 , A 3 T A 4 



40 READ 
50 READ 
60 DATA 



A 5 , A 6 - 
A 7$ , A 8$ 
D D D 

S 



A 9$ 



左の よ う な プロ ク 

ラムの 場合， 10 行， 
20 行， 60 行の データ 
は プロ ダラム 中で 継 

続して いる ことにな 
り ます. つまり， 30 
行〜 50 行の READ 文 
の 実行に よ リ， 各 変 
数に は 次の よ う にデ 

ータが 読み込まれ ま 



す. 

DATA 111， 222, 333， 444 f 555， AAA, BBB, CCC, DDD 

l 丄 上 



READ Qn] 1 222] [333 1 1 4441 ！ 555] [AAA 



Al A2 A3 A4 A5 A6 A7 $ A8 $ A9 $ 



L 



エラ 一になる， 



この 例で は， A6 という 変数に デ一タ を 読み込む 際に エラ 一になります. その 理由 は， 
A 6 という 変数が 数値 だけ を极 える 数値 変数な のに も かかわらず， 「A A A」 という 文字 を 
人力して しまった からです， 



③ LPRINT 文 

データ を プリ ンタに 印字し ます 



r 



r 



害き 方 



LPR I NT 




〕 



LPRINT 文 を 書く 時の 注意 は， PRINT 文と 同じです 



④ TAB 関数 

データの 画面 表示 や 印字 を 行 う 場合， その 行の 特定の 桁 位置に 位置づけ します. 




、 



TAB (桁 位置) 



ノ 
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TAB 関数 を 書く 時の 注意 は，? 尺の と お リ です 



• 桁 位置に は， 式が 指定で きます. ， ！ 

'桁 位置の 値 は，— 32768〜32767 まで 許されます， ただし， 負の 値 は， 0 とみな されます. | 
• TAB 関数が 使用で きる の は， PRINT 文， LPRINT 文の 中 だけです， i 



上記 例で ①は 指定され た 5 桁 目から 

「ABC」 力、 ②は， 画面の 右端が 79 桁 

目 なので， 指定 数字 を 80 で 割つ た 余り 力、 
TAB の 設定 位置に なり ます， 

③は， 「XYZ」 を 表示した 後， コンマで 次式が 区切られ ている ため， 「XYZ」 に 14 桁 
分が 割り当てられ ますので， 次の TAB (8) は， この 行で は 無視され， 次の 行に 対して 
働きます. 



⑤ FOR 〜 NEXT 文 
FOR〜NEXT で 囲まれた 命令の 集ま り を 指定 回数 分， 繰り返し 実行し ます 



~ "書き方 I ~ —— ― 

^ — j 

FOR 制御 変数 = 初期値 TO 終値 〔STEP 増分〕 

\ 一 
命令の 集ま り 

NEXT 制御 変数 



FOR 〜 NEXT 文 を 書 く 時の 注意 は， 次の と お り です , 



ノ【 



に'' 



例」… 一… 

① PR I NT TAB (5) ； tt ABC 

② PR I NT TAB (80) ； "123" 

③ PR I NT 、、XYZ " ， TAB 

(8) ; 、、PQR〃 



ク 



0 12 3 4 



1 2 3 
XYZ 



8 桁 目 




ヽ 



琴 



初期値， 終値， 増分 は 数値 式が 指定で きます， 

•「STEP 増分」 を 省略す ると， 増分と して 1 が 指定され たものと みなします， 

• FOR〜NEXT 文の 実行の 仕方 は， 制御 変数に 初期値 を セットし， NEXT 文に 達す 
るた びに， 增分 だけ ふやします * その 制御 変数の 終値 を 超えた 時に FOR〜NEXT 
の 繰り返し が 終わ り， N E X T の 次の 文へ 実行の 流れが 移 り ま す. 
• FOR〜NEXT の橾り 返しの 中に， 別の FOR〜NEXT の 繰り返し を 含む ことが で 

内側の F 0 R 〜 N E X T と 外側の F 0 R 〜 N E X T の 制御 変数 は お 



きます. その 



I 小 



なって いなければ なり ません 




、 



0 1 2 3 4 5 



圆 [S] 



① 10 FOR 1=1 TO 10 STEP 2 
20 PRINT I;IA2 
30 NEXT I 

この 例で は， I を 1 から 始めて 
10 を 超える ま で 2 つず つ 増 し なが 
ら繰リ 返し を 行う ので， FOR〜 
NEXT の跺リ 返し 回数 は 5 回に な . _ 

り ます. 

繰り返し 行って いる 処理 は， 制御 変数 I の 内容と その 2 乘を liifM に 表示して いる わけ 
です. 



！ ！ 
!l! I 
j ！ ！ 

Is! | 
I 1 


1 1 

1 1 

|1 ！ 

\ 1 

J9 | 




1 に 1 

！ 5 ； 1 
| t 

t 7 ！ ！ 
曜 1 


1 t 

！ 9 » 

1 
1 

い！ 


5 | 
9； 


1 » i 

1 Q 1 i 

1 ク 1 1 
I 1 1 


1 1 


1 ！ 



② 10 FOR 



M TO 0 



20 PRINT I 
30 NEXT I 

この 例で は， 初期値が 終値 を 最初から 超えて いますから， FOR〜NEXT の 繰り返し 
を 1 回 も 実行せ ずに， NEXT の 次の 文に 実行の 流れが 移ります * 



(3)10 FOR 
20 FOR 



M TO 9 
J=l TO 9 



30 PRINT I ； T ； J; リ； い J 

40 NEXT J 
50 PRINT 

60 NEXT I 



この 例で は， 外側の FOR〜NEXT の 繰 



1 


X 


1 




1 


X 


2 


= 2 


1 


X 


3 


= 3 




1 






1 


X 


9 


= 9 


2 


X 


1 


二 2 


2 


X 


2 








\ 





40 



り 返し を 1 回 実行す る 間に， 内側の FOR 
〜NEXT の 繰り返し を 9 回 実行し ます， こ 

れ によって 九九の 計算 式お よ び 結果が 画面 表 
示されて います, 



® I NT 関数 



書き方 



I NT (数式) 



、 



ソ 



指定され た 数式の 整数 部分 だけ を 柚 出します 




PRINT I NT (1003.56) 
1003 



■ ―、 




ィ J レの 利用 



本草で は， フロ 7 ピィ ディスクに デ 
ータを 記録して いく 手順 や， 記録し 
た データ を 人力し， 処理す るプ ログ 
ラムの 作成 方法 を 学びます. 



本章の ポイント 



シーケンシャル ファイルの 作成 
シーケンシャル ファイルの データ 入力 

画面の 利用の 仕方 



第 1 節 データの フロッピィ 




「イス ク への 登 




第 1 節で は， 身近な 例と して 家計簿 をと りあげて みまし よ う. 

家計簿 は， 1 力 月 前， 半年 前， 更に は 昨年と 比較して みると どこに 浪費が あるの か， 何が 昨 

^ よ リ 使いす ぎ かとい つたこ とが 分り， 節約の ボイ ン ト がっかめ ます * 



ここで は その 第 1 歩で ある， 毎 曰の 収支 データの 家計簿への 記 人です. コンピュータで この 

仕事 を 行う 場合， フロッピィ ディスク という 家計簿へ， キ一 ボ一ド という ペンで， データ を 記 
人 （蓄積） する プログラム を 作成す る ことになります * 

習得 ポイント は， ディスプレイ 画面 を 見ながら データ を 人力す る 方法と， フロッピ イデ イス 
ク への データの 登録です， 

m 家計に おける 収支 データの 作成 （例題 3 — 1 



飞 



例題の 概要 



、 



これから 考えて いただく 例 は ディスプレイ 表示 画面 を 見ながら， 毎日の 収入, 支出 デ— 
タをキ 一ボ一 ド から 人力 し， 収支 デ一タ として フロッピィ ディ スクに 登録す る プロ グラム 

です， 



画面 表示 形式 





◎ フロッピィ に 登録す る 収支 データの レ件 分の データの 形式 は， 次のと おりです. 




ggmssgg お 2ぉぉ ま 




マ ヌ- 



7 



？ 



ひ 



g 腿お 



？ 1、 x jdx. 



7 



か:' に'。 c"x< 



»：< ひ ◎ ■ B 議 ^ ^ ^ c< 6 





一き ^ 



'5T 



—は 



r 表" JL， "■A. 1 ' 



ク 



1 



0 



7^ 
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1 曰 付 区 分 

I コ―ド 、 



項 目 



名 



単位 数量 単価 金額 



ン 



、パ 



ぇ卞变 数 



倍精度 変数 



^数 変数 



各々 の 項目 は， キー ボ一 ド から 入力され る データ を フロッ ピィ ディ スク へその まま 出力す 
る ことにより 作成で きます が， 金額に ついては， 数量と 単価の 積 を 出力し ます. 



処理の 条件 



〇 データの 人力 は 表示 画面に 従って 行います， 

〇 キー ボー ド から 人力す る 各々 の データ 項目 は， 次の よ う な 条件で 入力し ます 



収支 コー ド 



■ 



o 収人 
1 支出 



いずれ か 1 桁の 人力 



* 



曰 付 



区分 コー ド …… 右の 表よ リ該 
当す る 項目の コー ドを 選択し， 
入力し ます， 



9 処理の 終了 時 

月 曰 を 各々 2 桁ず つ 入力 



収人 



0 

1 



光熱^ (お"， ガス， 水道 广 2 



衣料 费 



+ 



項目 名 
単位… 

数量… 
単価… 



• * + 



• 叠叠 團 



教育費 

mm 
医療費 

衛生 费 
隨費 



3 



4 



5 



6 
7 
8 
9 



貯金 (預金) 



一 10 



各 収支の 詳細 内容 (20 桁 以内 
各項 目の 単位 . 
各項 目の 数量 (数えられない 「もの も 1 とします) 
各項 目 の 単価 （数えら れ ない も の は 金額 と 同じ ザ 直にし ま す) 



保険 費 

硓ほ 5 代 



a 

12 
13 



J 



o データ 人力 件数 は 1 画面で 9 件まで （画面 上 21 行 目） とします. 9 件 目 を 入力した あと， 
引き続き 画面 を 表示して お く ため， 23 行 目で 次の よ う な 入力 処理 を 行います， すなわち 
23 行 目に 「カク ニン」 と 画面 表示が 出た 時点で， 次に とるべき 行動の， 該当 文字 を 入力し 

ます， そして プログラム では， その 人力 文字に W する 処理 を 行います （この 処理 動作 を 
確認 人力と いいます）， 



次に と るべき 行動 


人力 文字 


プロ グラム 上での 処理 


%在 あ n されて いる データ を ま だ a た 

レ v 




(そのまま） 


残りの データ を 人 わしたい 


C | 


現在 表示され ている 画 面 を 消し， m く 

データ を 5 行 目から 入力で きる よ うに 

します 
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人力すべき データがない ので プロ ダラ 

1 ムを 終了 したい 


E 


プログラム を 終了させます 




C または E 

以外 


確認 入力の 冉 実行 



〇 プログラムの 終了 は， 収支 コード 項目で 「9」 が 入力され るか， 確認 入力で 「E」 が 人 
力され た 時と します. 




確認 入力 

確認 人力と は， ディスプレイ 画面 を 使って いる プログラムで， 現在， 画面に 表示され て 
いる 内容 を 別の 両面に 切り替え ていい かどう か を 判断す るた めの 人力 動作です， 更に 切り 



替える 画面が 何 種類 も ある 場 



八 



どの 画面 （実際に は， どんな 処理 動作 を 行う か） か を 判 



断す るた めに 先の 例の よ う に C とか E とかの 文字 を 人力して いる 訳です, 又， それと ともに， 
何 か 文字が 人力され るまで は， 現在の 画面が 表示され ています ので， 表示 画面 を 見ながら 
人力 データの ヱ ラーチェ ッ ク もで きる 訳です. ' 



プロ グラム 作成 上の 注意点 

この プログラム 作成 上の ボイ ント として， 画面 上の 決まった 位置から データの 入力 や 表示 を 

行って いる と いう 点が あげられます. 



人力す る データ 量が 多い 場合に は， 1 象で 学んだ ような 方法で なく， 画面 上の 配置 （画面 レ 



ィ アウト） をし つかり 決めた 方法で デ一 タ 人力 を 行った 方が 操作 性 が 向 ビ します， BASIC に 



おいて は， 画面 上の 特定の 場所に 位置づける 命令と して， 「LOCATE」 文 や TAB 関数が 用意 さ 
れ ています， 

TAB 関数に ついては， 2 章で 既に 説明し ました. LOCATE 文 は， 次のように 指定で きます. 



LOCATE 桁 位置， 行 位置 



L^J [ft] 



たとえば， 「LOCATE 10 ,5」 と 指定す ると， 右 図の よう 
に 画面 上の 希望す る 場所に 位置づけが 行えます， 

ところで 2 章で 説明 しました が， 1 件 分の 処理 手順 だけ を 

考えて やり， あと は， その 命令 を橾リ 返して 実行させる とい 
うのが プログラムの 基本 型でした， 今回 取り扱う プログラム 5 

も， 画面 上の 各人 カ行が 全く 同じ 形式な ので 橾り 返しが 可能 
であると いうの はお 分かりいた だける でしよう， し 力、 し， 各 
データ を 入力す る 桁 位置が 同じで あっても， 1 件 分すな わち 1 行 入力す るた びに 行 位置が 変わ 
つてい きます から， 上記の よ うな 形で 命令 を 書く こと はでき ません. そこで， 今回の 例の ような 
合 は， 行 位置が 変更で きる ように， 次の ような 命令の 書き方 をす る 必要が あります. 
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LOCATE 桁 位置， 行 位置 を 表わす 変数 




敉 なので 値が 変更で きます 



m プログラム 例 

次に プログラム 例 を 示します. 実際に プログラム をキ 一ボードに より 人力し， 実行して 見て 
下さい. 



10 

20 
30 
40 
50 
60 



OPEN "1 :SYUSHI F" FOR OUTPUT AS ttl 
PRINT CHR$(&HC) 
LOCATE 17,1 
LOCATE 2,3:PR 
LOCATE 2,4:PRINT 
LOCATE 45,3:PRINT 
L IN = 5 



"** 木 シ n ゥ 
"シ コゥシ ヒ ^3 ^ケ 

"n- ト^ 
"タン ィ 



v " 一 
クフ * ン 
u -ド " 

スゥ' Ja ゥ タン 力 



タ 二；！ ゥリ 3 
コゥ モク メイ'' 

キ；/ ク" 



ク ***- 



80 
90 
100 

I 10 
120 
1 30 
140 
150 
60 



LOCATE 2, し 


1 


N: 1 N 


PUT 


IDENT% 


IF !DENT%=9 




THEN 


240 




LOCATE 6, 


し 


1 N ： 1 


NPUT 


HIZUKEX 


LOCATE 13, 


し 


IN: 1 


NPUT 


K 画 NX 


LOCATE 20, 


し 


1 N ： 1 


NPUT 


ITEMS 


LOCATE 43, 


し 


1 N ： 1 


NPUT 


TAN 1$ 


LOCATE 53. 


し 


1 N: i 


NPUT 


SURYO% 


LOCATE 59, 


し 


IN: 1 


NPUT 


TANKA« 



K I NGAK»=SURYOX*TANKA« 
LOCATE 70,LIN:PR〖NT K I NGAKtt 
80 PRINT** I , tOENTX;HI ZUKEX;KU8UN%; I TEM ま；"，"： TAN I $ パパ； SURYOJt : TANKAtt ; K 【 NGAIU 
190 IF L IN=2t THEN 200 ELSE 230 
200 LOCATE 61,23: INPUT "カク ニン " 〗 CHK$ 
210 IF CHK$="C" THEN 20 
220 IF CHK*="E tl THEN 240 ELSE 200 
230 L I ISI-L !N + 2:G0T0 80 
240 CLOSE :END 



^ ノ 



それで は， プログラム を 分けて 見て いきましょう， 



■ ' ' ■ — 
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20 
30 
42 
50 
60 



OPEN 'リ： SYUSHIF" FOR OUTPUT AS ttl 
PRINT CHR$(&HC> 
LOCATE 17,1 :PRINT 
LOCATE 2,3tPRINT 
LOCATE 2 ん PRINT 
LOCATE 45,3: PR I NT "タ; /ィ 



"*** シ ユウ シ？^ ータ 二： t ゥ y 
"シコ ウジ ヒ； r ケ クフ * ン コ ゥ モク メ 
' 'コー に コ-ト 



ク 



I! 



スゥリ 3 ゥ 



タン 力 



キン^ ク 



10〜60 行 は， 準備 作業 を 指示す るた めの ものです. 

10 行 目で は， フロッピィ ディスクに 収支 データ を 書き出す 前の 準備 を 行って います. 各 指定 
は 次のと お り です， 



r 



OPEN "I ： SYUSHIF" FOR OUTPUT AS 1 



T 

ド ラ ィ ブ 番号 



収支 データ 全体 

につけた 名前 
しフ ァ ィ ル名 j 



出力 

^ データ を 

出 力して 

いく とい 

乂ぅ^ 味 



T 

フ アイ ル 
(ファイル 




フ 



のか わ り ) 



つ 



20 行 目 は， 画面 全体の 消去 （画面 ク リア） の 指定です. ， 

30〜60 行 は， 画面への 見出しのお 小 を 行って います. たとえば 30 行で は， LOCATE 文に よ 

て 1 行 17 桁に 位置づけ PRINT 文で 引用符の 中の 定数 を 表示して います. 他の 行 も 同様です, 



L IN-5 

LOCATE 2 儿 IN: INPUT IDENT% 
IF IDENT%=9 THEN 240 
LOCATE 6>LIM: INPUT HIZUKE% 
LOCATE I3.L IN: INPUT KUBUN% 
LOCATE 20, LIN: INPUT ITEMS 
LOCATE 43AIN:1NPUT TANI$ 
LOCATE 53.L IN: INPUT SURYOX 
LOCATE 59 儿 IN: INPUT TANKA» 
K I NGAXI»«SURYOX 木 TAWKAS 
LOCATE 70,LIN:PRINT KIN6AK* 



70 行で LIN という 変数に 5 を 与えて いますが， 何 をして いるので しょう， 8(Hr， 10()〜15(Hn 
170 行で LOCATE 文の 行 位置 指定の 所で LIN という 変数 を 使って いますね， この 値 を 最初に 5 
から 始めたい ための 処理な のです. 80 行で， LIN の 値が 5 ですから， 5 行 2 桁 目から 「IDENT 
%」 に 収支 コ一 ドを 入れさせて いるので す. 画面 表示 形式で 確認して 下さ レ、， 実際に は 「？」 の 位 
置に なって いる はずです， 同様に 100 行〜 150 行 も 同じ 動作 を 行います. 

160 行で は キー ボ一 ド から 人力した 数量 （SURYO%) と 単価 （TANKA#) を かけ 金額 （KIN- 
GAK#) を 計算し， 170 行で 表示して いるので す， この LIN の 内容 を 2 ずつ ふやす ことによって， 

行 を 変えながら， 同じ 場所 （桁） から 人力が 続けられる ことになります. 

さて 90 行です が， ここで は， IDENT% に 「9」 という 数字が 人力され たか どうか 調べて いま 

す ■ つまり 「IFJ という 命令 は 条件 （判断） 命令です， この 例の 処理 条件に もあった よう 
に， 収支 コ一 ドで 「9」 が 人力され たなら プログラム を 終わらせる という 決ま りが あり ま した， 

そこで， 変数 IDENT% に 9 が 人って いれば， 240 行へ 実行 を 移し， そうでなければ 100 行に 移る 

よ う 命令が 指定され ています. 



ノ 



0 0 0 0 

7 



1 2 



3 4 5 6 7 
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： 180 PRINT* I , I DENTX ; H I ZUKE% ； KUBUNX ； I TEM$ ； 4f , " ; TAN ( $ ； " , " ； SURYOX ； TANKAft ； K I NGAK8 

190 IF L IN=21 THEN 200 ELSE 230 ： 

； 200 LOCATE 61 ,23： INPUT "カク ニン "〗CHK$ ： 

210 IF CHK$- H C B THEN 20 ； 

: 220 IF CHK$="E" THEN 240 ELSE 200 I 

I 230 L 〖N4 IN + 2:GOTO 80 "I 

： 240 CLOSE : END ； 

： ] 
\ - -…… -— „ -… ―…' ―… - J 

ブリント 

160 行までの 処理に よって 1 件 分の データが できあがります から， 180 行で 「PRINT#」 文 を 
使って 8 項目 を 1 まとめ （ 1 件の データ） として フロッピィ ディ スクに 書き出し ています. 

190 行で は， 変数 UN の 内容が 21 かどう か 調べて， 条件が 満足して いれば 200 行， そうでな けれ 
ぱ 230 行に 実行 を 移す よ う にして います， これ は， 画面 上での 人力 行が 21 行 目に 達して いるか ど 
うか を 調べて いる わけです， 2 1 行に 達して い れば， 確認 入力 を 行 う 必 要 が あるの で， 200 行で 
画面 上 23 行 61 桁に 位置づけ， 確認 入力 を 行わせる ようにし ています. ， 

この 確認 人力で， 何が 入力され たかを 調べて いるの 力^ 10 行， 220 行です. 210 行で 確認 キーと 
して 「C」 が 押された かどう か を 調べ， 押されて いれば 20 行へ 実行 を 移し， それ 以外の キーが 
押されて いたなら ば 220 行に 実行 を 移します， 220 行で は， 確認 キ一 として 「E」 が 押された か 
どうか を 調べ， 押されて いれば 240 行へ， それ 以外の キーが 押されて いたならば 200 行へ 苠り， 
確認 キ一 の 人れ なお し を 行わせて い ます. 

UN の 内容が 21 に 達して いない 時には， 同じ 画面で 人力が 続けられ ますから， 230 行で 現在の 
UN の 内容に 2 を 加算して， 80 行に 実行 を 戻します. この 作業に よって， 前の データ 入力 行から 
2 行 下 の 位置 か ら 入 力 が 続 けられる わけです， 

240 行 は， 確認 入力で 「E」 が 入力され た 時の 処理， プログラムの 終了 処理です， 「CLOSE」 
文で， 使用した フロッピィ ディスク データの 後始末 を 行って います • 次の 文 「END 丄でプ ログ 
ラムの 終了に なり ます， 
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さ. 



n 



7 



にに ， り H | 



5 

一 e 



170 行に よ る 
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IF 文の 書き方 は 次の よ うにな つてい ます, 

IF 条件 THEN〖 行 番号 

文 



ELSE | 行 番号 

文 



备 



に 条件が 正しい 時に 実行 V -条件 どお り でない 時に 実行 



ELSE 以降が 省略 されて いる 時 は， ？ 丈の 文が 実行され ま す, 



IDENT% HIZUKE% KUBUN% ITEMS 




+ 2 

画面 上の 表示 行 変更 
のた めの 措置 



180 行 

による 出 力 




厶 1 厶 A920AA 1 厶カ キノ タネ， フク 口， A 1 A 厶 400厶厶400 厶 ！ 

― 一 I 



180 行 目の PRINT# で， フロッピィ ディスクに デ一タ を 出力して いますが， その 際， 8 つ 
の 項目の 他に， ITEM$ と TANI$ の 後に 続けて に」 を 書き足し ています. どうしてに」 を 
書き足した のでし ようか， 実は， コンマ を 指定し なかった 場合 は， 次のように デ一 タ が 記録 
されます. 

A 1 AA920AA 1A 力 キノ タネ フク 口 Al AA^OA A400 厶 
数値 データの 場合 は， 必ず 前後に 空白が とられ ますが， 文字 データに は そのような こと は 
行われて いないの です. つま り， データ を 登録す る 際に は 何ら 支障 はなく て も， 登録され 
た フロッピィ 上の データ を 人力して くる 時に， 項目の 区切りがない ために， 項目 名 以降の 
デ一 タ が 全て 項目 名と して 人力され てきて しまい， まったく 别の 意味の デ— タ となって し 
まいます. 

A 1 厶厶 920 厶厶 1 厶カ キノ タネ フク ロ厶 1 厶 厶400 厶 A400A 



、 






□ 



\ 



、 



IDENT% HIZUKE%KUBUN% ITEMS 



そのため， このよ つ な 不都合 をな く すため PRINT# で フロッ ピ イデつ へ， ^ , , 'こ 山 つ 
する 際 は， 文字 データの 後に 必ず 「，」 を 書き出す ようにし ます. 



ノ 



つりな と 

あ れタ 

さ 一 

白 はな デ る 
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C2 処理の 手順 

プロ グラム 例をフ 口一 チヤ 一 ト で 考えて みま しょう， 
この プロ グラム も， プロ グラムの 基本 型に 従って 実行 手 

順が 考え ら れ ています， 
プログラムの 最初と一 番 最後で 実行して いる 「ファイル 

準備」， 「ファイル 後始末」 は， フロッピィ ディスクの デ一 
タを 取り 极 う 時に は， 必ず 実行 し なければ な ら ない 処理で 
す. こ れ を宪行 しないと， フロッピィ ディスクに データ を 
書き出したり， 逆に データ を 人力す る こ と はでき ません， 

また， 画面 全体 を 使って データ 入力， 表示 を 行う 場 介 
は， 最初に 闽面 全体の 消去 を 行う 必要が あります, この 



処理 をして おかないと， 




こ 画面に 表示され ていた 内容 



と 表示 内容が 重な つてし まつ て 意味 不^ の 画面 となって し 
まいます. 

準備が 終わ つ た な ら ば， 画面 左側 よ り 順 爵に デー タを人 
力す るよ う にします. 

今回， 計算 処理と して は 金額 計算が あります， 

出力と して は， 計算した 金額 を 画面に ^示す る 作業 は， 
人力され た データと 金額 を あわせて 1 件の データと して フ 
口 ッ ピィ に 書き出す 処理が あ リ ます， 

今回の プロ ダラムで は， この 一連の 入力— 処^— 出お を 



データ 人力 件数 分 だけ 繰り返し ていく ことにな り ます， 

ただし， 2 章の 例と 違い， 一画 面 上での 繰り返しの 制限 
(9 件 分の 表ボ） があります から， それ を 調べる 動作が 当 
然 のこ と ながら 必要に なって きます， 



それと 関連す る 処理が 右 図の 「画 ifu' 切換 処那 J の 部分で 



す 



* 



画面 右下 23 行 目で 「確認 人力」 という 方法 を 用いて， 新 
しい iffifti への 切換え， も し く は プロ グラムの 終了 検査 を 行 
つてい ます. 

プログラムの 処 jPft 手順 は， 基本的に は， 人力— 処理— 出 



準 



< 



入 
力 



に 




単価 人力 



金額 



数量 x 単価 




金額 表示 



丄 



テ一タ 
に 



6 ！ 



LJN-LIN ^2 




確認 入力 




収支 

v r ィル 後始末； 



お わ り 



一 



力と いつ 処理の 繰り返しです 力、 コンピュータに 行わせる 仕事が 複雑に なって くると， それ 
に 付随す る 多く の 処理が 必要に なって きます. 

しかし， プログラム 自身 は できるだけ 簡単に 作る ことが， いろいろな 意味から も 重要な こと 
です. 

また， この 树 では， プログラム を 終了させる 判断 を 2 ケ所で 行って います. 確認 キ一 とし 
て 「E」 が 人力され た 時， 収支 コードと して 「9」 が 入力され た 時です， 



プロ グラム を 終了す る 場面 は， 



ぶ aa j±£ 



の プロ グラム （阿 面 を 使つ て 人出 力 を 行つ ている プ 



ログ ラム） において は， いろいろ 考えられます， そのため ， プログラム を 作る 場合 は 常に， し 



52 



ろい ろ な 場面 を 想定 し て， 処理の も れ がな いように してお か なければ な りません 
命令の 説明 

この 節で 新しく 出て きた 命令 を， 見て いくこと にしましょう. 

① OPEN 文 

ファイル を 使用で きる 状態 に します， 




OPEN "ファイル ディ スクリ プタ" 〔FOR モード〕 AS〔tt〕 ファイル 番号 



OPEN 文 を 書く 時の 注意 は 次の と お り です, 



〇 ファイル ディスクリプタ では， これから 作成す る ファイル 名， 既に 作成 済みの ファイル 

から データ を 入力しょう とする フ アイ ル名等 を 指定し ます， 
o FOR で 指定す るモ一 ドの 種類と 意味 は， 次のと おりです. 



INPUT ………既に 作成 済みの フ アイ ル から データ を 人力す る 時の 指定 
OUTPUT …… 靳 しく ファイル を 作成す る 時の 指定 
APPEND—— 既に 作成 済みの フ アイ ルに データ を 追加 登録す る 時り 指定 
o ファイル 番号と して は 1 〜15 が 指定で きます， OPEN 文 以降の 人出 力 命令で は， フ アイ 

ル 番号で 各フ アイ ルを 区別して 取り扱って いきます. 



、、-. 



ヤノ 



② CLOSE 文 

使用した フ アイ ルの 後始末 を 行い ま す 




close 〔〔#〕 ファイル 番号 〔， m ファイル 番号 > • -〕 



CLOSE 文 を 書く 時の 注意 は 次の と お リ です. 



r 



o フ アイ ル 番号で 指定 さ れた フ アイ ルの 後始末 を 行い ま す. 

o CLOSE のみ の 指定の 時 は， その 時に OPEN されて いるすべ ての ファイル を CLOSE し ま 
す. 



CD LOCATE 文 

画面 上の 特定の 位置に カー ソ ルを 位置づけ します 
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LOCATE 〔桁 位置〕 〔， 行 位置〕 



LOCATE 文 を 書く 時の 注意 は， 次のと お リ です, 



ノ. 



'ヽ 



！ o 桁 位置が 省略され た 時 は 0, 行 位置が 省略され た 時 は， 現在 カーソルが ある 行が 指定 さ 

！ れ たものと みなされます. 



® PRINTS 

シーケンシャル フ アイ ルに データ を 出力し ます 



r 




ヽ 



PRINT# フ アイ ル 番号， 〔式 〔{ ； } 式〕 ■ • • 〕 



PRINTS 文 を 書く 時の 注意 は, ？ 欠のと おりです. 



ヽ 

o 式と 式との 間に 「；」 を 使う か， 「，」 を 使う かによ つて PRINT 文の 時と 同様の 領域の 割 
り 当てが 行われます， 

〇 文字 データ を 書き出す 際 は， その 直後に 必ず 「，」 を 書き出して 下さい. | 

r 

、、画'， よ 11 ， * - * ■■■■■■■ - - ^ TT ^-, - - 画 



ヽ 



る シーケンシャル フ アイ ルは， デ一 タ を 登録 し た 順番に 記お 
, 記録され ている 順番に 人力で きる ファ ィ ル です. 



A 



B 



人/ J され 

てく る D 
順 番 1 

G 

+ 』 




シーケンシャ^! レフ アイ メレ 

BASIC で极ぇ るフ アイ ルに は， シーケンシャル ファイルと ランダム フ アイ ルがぁ り ま 
す. ここで 取り扱つ ている シーケンシャル ファイル は， データ を 登録した 順番に 記録して 
いき， 人力して くる 際 も， 記録され ている 順番に 人力で きる ファイルです. 



ノ 



フロッピィ ディスク 



に 
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⑤ IF 文 

条件 を 満足して いるか どうか 調べ， それに 応じて 命令 を 実行させます 




IF 条件 THEN 



行 番号 



订 番号 【 、 

(ELSEi ^ \ 〕 

文 



に 



IF 文 を 書く 時の 注意 は， 次のと おりです. 



， 



o 条件 を 満足した 時 は， THEN の 後の 文 を 実行す るか， または 指定され た 行 番号に 実行 を 
移します. 

o 条件 を 満足し ない 時 は， ELSE 以降の 文 を 実行す るか， または 指定され た 行 番号に 実行 を 

移します， ELSE 以降が 省略され ていた 時 は， 次の 文 を 実行し ます. 
o 条件の 中で は， 次の よ う な 関係 演算子 や 論理演算 子が 使えます. 



： …関係 演算子 



- 論理演算 ト誦 



<>, >< 
< 
> 

< =, = < 



等し く なレ 



AND 

OR 

XOR 



'論理和 

-徘他 的 論理和 



以 卜' 



IMP ……包含 



>=， => 



以上 



EQV 



-… ， •* 一 -- - -… 

V ) 

(1) IF A=0 AND BOO THEN C 二 C+l ELSE C = C+2 

上の 文 は A が 0 でかつ B が 0 以下の 時， THEN 以降の 文 （C 二 C+ 1) を 実行し ます. 
A が 0 ではない か， B が 0 を こえる 時 は， ELSE 以降の 文 （C 二 C+2) を 実行し ます. 
(2) IF A= 1 OR BO 1 THEN C = C A 2 

上の 文 は A が 1 または B が 1 でない 時， どちら か一 方が 満足した 時に C 二 C A 2 を 実行 
します. 



⑥ GOTO 文 

実行の 流れ を 変更し ます, 
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GOTO 行 番号 



oGO と TO の 間に， 空白 を 1 個人れ て も かまいません 
⑦ CHR$ 関数 
指定した コ一 ドを 持つ 文字 を 与えます， 



書き方 



に 



CHR$ (数式) 



〇 数式の 値と 対 芯す る 文字に ついては， ユーザーズ マニュアルの 付錄を 参照して 下さ レ、, 



- 
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第 2 節 フロッピィ 




夕 入力 



第 1 節で フロッピィ ディ スクに 登録 し た 収支 デー タを 入力して， プリンタに 印字す る プロ ク 
ラム を 通し， フ アイ ル からの データ 人力に ついて 学習し ます. 

m 収支 データ 表の 作成 （例題 3 — 2) 



r 



例題の 概要 



J 



第 1 節の プロ ダラムに よって マロ ッ ピィ ディ スクに 登録され ている 収支 データ を 入力 

し， ？ 尺の 形式で プリンタに 印字させます * 

プリ ンタ 印字 形式 



ノバ 



0 



0 



i J 



10 



l I； (3 14 け it n l| i, ？ o 



T 



2?!1 « » " it ？ 9 M 



2 



3 

1 リ' > ， „ 叫' 



4 



9 



t 



ゥ 



W (1 64 6""T M 



tt;; n n n " 



6 



丄 

3 

I I 
12 



i — i ■ 一 



mm 



i 1 L-fcH ~ i ~ «h i I 



柳》 3驟 




i 



1 




1^:0: ゆ》 



な: 



+- 




Ok 



フ 口 ッ ピ ィ デ ィ ス ク に 登録され ている 収支 デ一 タ のす ベて をプ リン タ に 印字 します 



o プロ グ ラ ムの 終了 は， 全デー タ を 印卞 し 終った 時と します * 



プロ グラム 作成 上の 注意 

この プログラム は， それほど 複雑ではありません, 収支 データ を 1 件ず つ フロッピィよ リ 人力 
し， それ を 1 行ず つ 印字して いけば よい わけです， ただし 登録の さいに 「収支 コード」 もファ 

ィルに 出力し ましたが， この 内容 は 印字し ません. 

本 プログラムでの 注意点 は， プログラム をい つ 終わらせる かとい うこと です. 「例題の 概要」 
で， 全 デ一タ を 印字し 終った 時に プログラム を 終了させる とあります. では， 全 データ を 印字 

し 終った かどう か は どのよ う に 判断したら よいので しょ う， 

最後の データ を 印字しても， それが一 番 最後の データ かどう か は， データ を 記録した 時に 覚 
えてお かない 限り， まず わからないでしょう. 

BASIC では， データ を 記録した 時に 最後の データの 次に 終わり マーク （EOF— End of File) 
をつ ける こと によって， この マークが 人力され た 時に データが 終わり であると い う ことが 判別 
でき るよう になって います， 
H プログラム 例 

次に プログラム 例 を 示します， 実際に プログラム を キーボードより 人力し， 実行して みて 下 
さい， 



I つ il " 



コ 



>0< 



ト： 




1 *S 



ム 



し 3 



mi 



。 



お ま 



^£ ^| 園 




tt 



ft 



二 



圍ょ 



—2— 
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I 10 OPEN "SYUSHIF" FOR INPUT AS I 

: 20 LPR INT TAB (21),'" シ 3 ゥシチ * ータ b s ゥ" 
； 30 し PR I NT 

I 40 LPRINT TAB(4>:"t;r ケ ク: T ンコゥ モク メイ- ; 

！ 50 LPRINT TAB (39》 ；" タ ン ィ スゥ 1/ 3 ゥ タン 力 * ン 力 * ク" 

； 60 LPRINT TAB(1 1 ) ゾ コ-ト，" 

： 70 INPUTtt 1 , I DENT%,HI ZUKE%,KUBUNX, I TEMS , TAN I $ , SURYOX , TANKAlt , K I NGAKtt 

： 80 LPRINT TAB") ;HIZUKEX:TAB(1 "： 議隱〗 TAB(16h ITEMS,' TAB(39) 'TANH 

； 90 LPRINT TAB(48"SURYcn;TAB《54》 ：TANKA»:TAB(64 は INGAKtt 
: 100 IF EOF ( 1 ) THEN \ 10 ELSE 70 

I 1 10 CLOSE :END 

\ 

、 …ノ 

まず 10 行 目で ファ ィ ルの 準備 を 行つ ています， FOR の 後に 「INPUT」 が 指定され ています 
から， 既に 作成 済みの ファイルから デ一タ を 人力して く る こと を 意味して います， 「収支 フ アイ 
ル （SYUSHIF)」 に対して， ファイル 番号 「1」 が对応 づけら れ ています ね. 

20 行 目で 大 見出しの 印字， 30 行 目で 空白 行の 印字， 40， 50, 60 行 目で 項目 見出しの 印字 を 行 
つ ています. 

以上の 準備 作業 をす ベて 行った 後， 70 行 目で， データ を 1 件 分 人力して きます， ファイル 
番号 1 の 後に 指定され ている 「IDENT%」 から， 「KINGAK#」 ま での 変数に デ一 タを 入力して 
く る わけです， 

そして， 入力した デ一タ を 80 行， 90 行の 「LPRINT」 文 を 使って 所定の 位置へ 印字して いま 
す， あと は， これ を 全 データに 対して 繰り返せば よい わけです， 繰り返し 行う 力、 それとも 
人力して く る データが な く なった ので， プロ ダラム を 終わ リ にす るか ど う かの 判断が 次の 100 行 
で 行われて います， 

100 行で は， 1 番の ファイル (SYUSHIF) が EOF (ファイルの 終わり） まで 達して いるか ど 
う か を 調べ， 達 し ていれば 最後の デー タ ま で 印字が 終了 したと いう こと で 110 行に 移 り プロ ダラ 
ムの 終了になります • まだ 印字の 済んで いない データが あれば， 70 行へ 苠し 次の データ を 入力 
してきます. 
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S] 処理の 手順 f 

プログラム 例 を フローチャートで 考えて みましょう， 右 図の 手順 か ， 
らも わかる ように， 準備 一人 カー （処理） 一 出力 一 後始末の 基本的な ！ 
処理の 形で ある こと は 確認で きます ね. 基本的な パターンと 異なる 点 》 
は， プロ ダラム を 終了に する かどう かの 判断の 位置が 異なる こ と です， 

通常 は， データ 入力の 直後で 入力 データが なく なった かどう かの 判定 



-™ ― - き 



ヽ 



れ ています， 



れは， BASIC の ファイル 人力 命令 （INPUT#) が， データ 人力 を 




I 

I 
1 
I 



を 行います が， 今回 は， データ 出力 （印字） の 直後に 終了 判定 を 入 | 



行った 後， 次の データの先頭に 位置づける ことが 原因です， もし， 1 

1 

終了 判定が データ 入力の 直後に あると， 最後の データ を 人力し， それ ； 

を 印字し な いうちに プログラム が 終わ り に な るから です， j 

S] 命令の 説明 ： 

この 節で 新しく 出て きた 命令 を 見て いく ことにしましょう. | 

① INPUT# 文 | 

シ一ケ ンシャ ルフ ァ ィ ル から データ を 入力して いき ます • } 



、 




は じ め 





大見出 し 
印字 




項目 見出 
し 印字 




YES 



7 アイ ル 後始末 




わ り 




INPUT# ファイル 番号， 変数 名 〔， 変数 名〕 



• 



に 



INPUT# 文 を 書く 時の 注意 は 次のと お リ です, 



[DEN 丁、 Hr2UKE% KlJBUN% ITHMS TANIS SLRVO^TANKA^ KfMpAK^ 



40 行に よ る 印字 

60 行に よ る 印字 



i -- ---80 行， 90 行に よ る 印字 



50 行に よる 印字 




< に 3t)t パ 



3 

1 
1 
1 



陽 ス，, 



1 



20 行に/よ る 印字 



ノ」 



.380 ( 



3900. 




i7 



1 

< 



ノ 



？ C 
t\* ゥク 



ノ 



"ソ S ゥ 



555555 0000 

11111127-22 

9999999 999 



ン 



o C 



2 o 9 5 o o 



I M f _J 7 T t 7 



1_6 2 231211 1 2 1 
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o ファイル 番号 は， OPEN 文で 指定され た 番号です， 

o INPUT# でデ一 タ を 人力 後， 次の デ一 タ に 位置づけ されます. 




10 OPEN "REI" FOR INPUT AS 1 
\ 

130 INPUTS, A, B$, C， D 

S 



フ 口 ゾ ビ ィ 



INPUTS 文で 
入力 された デ f „ 

ータ 



二の 位置に 位置 

づ: 十され る 



A 






B 






C 






D 






E 













② EOF 関数 

ファイルの 終り を 検出し ます, 



~ > 書き方 I 

EOF (ファイル 番号) 



フ アイ ル 番号で 指定 された ファイルの 中の デー タ 力、 終わ り に な つた かどう か を 検出し ま す. 
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第囈章 見易い 表の 作成 



本章で は， ^^い 帳 表の 作りお を 中 
心に ケ ィ 線で か こ ん だ 表 形式の プ リ 

ント 出力， サブルーチン を 使 用して, 
プロ グラム を 簡潔に する 方法に つい 

て 学習し ます。 



( ^本章の ポィ ン 卜 ^ 

。 多 く の 変数の 確保の 仕方 

。 FOR〜NEXT の 多重 ループの 利用 
。ケィ 線 を 含んだ 表の 作成 

。サブルーチン を 使用して プログラム を 簡潔に 表現す る 方法 

J 



第 1 節 表 形式の プリント 



第 1 節で は， 公共料金 使用 推移 表の 作成 プログラム を 通して， ケィ 線で 枠 を かこんだ 表 形式 
の プリ ン トの 印字 方法に ついて 学習し ます. 

m 公共料金 使用 推移 表の 作成 （例題 4 一 1) 




次の よ う な 公共料金 使用 実績 を 基に， 公共料金 使用 推移 表 を 作成す る プロ グラム を 考え 



ます, 



公共料金 使用料 



月 


1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


あ UKWh) 


350 | 


370 


330 


360 


345 


352 


368 


375 


351 


340 


320 


380 


ガス （m') 


68 


70 


63 


58 


57 


55 


53 


59 


60 


58 


62 


67 , 


氷 道 （m') 


63 


57 


58 


60 


61 


53 


57 


65 


60 


58 


57 
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◎ 公共料金 使用 推移 表の 印字 形式 



0 



I t y 



a 



P 4 I »0 



■ — 1 1 — 1 1 — i 



■ ■— I い 1 14 は リ l| il m 



T 



3 



4 



に. . - , ■ ^ ^% j = . ノ ： 



5 



A? " " IS 4MT 41 41 1£ 



5 



7 



[Vi ^J M » « V> U il M t> 



6 



^7 U U (f W |f 



0 



k ― 



0 



2 



1 




「###」 で 示される 位置に 実績 値 を 印字し ます， 各項の 実績 値の 下に は， 括弧で くくって 
合計 値に 対する 比率 を ％ で 印字し ます， この 比率 は， 四捨五入して 整数 部分の み を 印字し ま 
す • 



処理の 条件 



実績 値， 比率と もに 印字 場所に 数字の 右側 を そろえて 印字し ます 
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6 



1 

10 



1 



II： 



I 



ma 



ill 



i 



1 4 mm ■ -i * h ■ 



I. 




11： 



I 



ill 



ami 



E ほ 



ill 



e 



1 1 



-I 

nni 



911 



I 



sss[ 



i 



in 



I 



FM I ■! i II 
III fW4 i ■! 



iiilllDEiiiiiEii 




111； 



環 I) 





： ： 



nnii 



in 



* * * * * 




m 



2Q 



2\ 



お 





職 



if 

丄 



困 



II 



ト, J 』 





プロ グラム 作成 h の 注意点 
この プログラム は， 各 料金の 合計 値に 対する 各月の 使用 値 を 比率で 表現す る 訳です， この 処 

理を 行うた めの 方法 はいろ いろあります が， 今回 は DATA 文で 定義した 実績 値 を， 対応す る 36 
個 （12 ヶ月 x 3 種類） の 変数に 人力し， それ を 比率 計算に 使って います， ところで， 36 個 もの 
変数 を 確保 するとな ると 名前 をつ ける だけで も 大変です ね， そこで BASIC において は， W ^4 
性の 変数 を 数多く 確保す る ことが 簡単に できる 命令が， 用意され ています， この 機能 をう ま 
く 使う ことによって， FOR 〜 N EXT 文 を 利用して 大量の デー タを簡 単 に 取り扱う ことができ ま 
す. 



多くの 変数 を まとめて 確保す る 指定… このような 変数 を 「配列 変数」 と 呼びます 

DIM A (10) - —— >) | J ] J J J ] l" [ ] _ 

T 0 1 2 3 4 5 6 7 8 9 10< 

この 指定に よ り， A という 名前の 単精度 変数が 11 個 確保 
される， 

11 個のう ち， どの 変数 をと り 扱う か は， 次のようにして 区別す る， 

A (n) • 

n は 添え 字 



また， この プログラム では 同じ 種類の ケィ線 を 
何回も 引いた り， 同じ パターンの 印字 を 繰り返し 
たりな どの， 同一の 処理が プログラム 中で 何回も 
でて きます， このような 場合， その 処理の 必要な 
都度， 命令 を 書く ので はなく， プログラム 内に， 
1 ケ所 だけ 定義して おき， 必要に応じて その 処理 
を 呼び だして 実行させる という 考え方 を とりま 
す. この 考え方 を 使用す る ことにより， プロ ダラ 
ムが 簡潔に なり， プログラム をより 短く する こと 
がで きます. 

このように， プログラム 中で 何度も 出て くる 処 



ズ ' 



理を 1 ケ 所に ま とめた もの を 「サブルーチン」 と 呼 




メノ GOSUB 

ィ 

ン 



チ GOSUp 500 
ン I 1 I 




GOSU 





(500 行から 先 か 
サブ/レー チ 



ン） 



全く 同じ 処理が 
行われて いた 場合 




气 醫 ——一一—— 一一 一一 墨 一一 冊 冊— 一一 一 一一 



び, サブルーチン を 実行させる 命令 （GOSUB) か 
かれて いる 処理の 流れ を 「メイン ルーチン」 と 呼びます， 

m プログラム 例 

次に プログラム 例 を 示します， 実際に プロ ダラム を キーボードより 人力し， 実行して みて 下 



さい, 



れる t!5? 番 nl^ 

「尺 4 え： 尸」 と f よ 
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メイン ルーチン 中の GOSUB 文に よって， サブルーチンに 実行が 移ります， また， 各 サブ ルー 
チ ン の 最後 に は 「RETURN J が 定義 されて いま す 力、 こ の 命令が みっか る と ， サブ ル一チ ン に 
実行 を 移した GOSUB 文の 次の 文に 実行 を 移します， つまり， GOSUB 文と， それによ つて 実行 
される サ ブル一 チ ン が 置換 さ れた よ う に 動作す る わけです. 

それで は プロ ダラム を 分けて 見て いきま しょう， 



ノ 

- 

10 DATA 350,370/330/360 ,345,352,368,375,351 ,340,320,380 

20 DATA 68,70,63,58,57 ,55,53,59,60 ,58,62,67 

30 DATA 63, 5 了- 58, 60 ぶ， 53, 57,65-60, 58, 5 了， 60 

40 Dt}A HY0(13,3) 

50 FOR J= I TO 3 

60 FOR 1=1 TO 12 

70 READ HYO( i /J) 

80 HYO( 〗 3, J 卜 HY0(1 3, J い HYO( 1 , J) 

90 NEXT I , J 



ノ' 



ここで は， 40 行 目の DIM 文で 確保され た 「HYO」 という 名前の 配列 変数に, 10 行〜 30 行で 定 
義 されて いる 実績 データ を 読み込んで います， 読み込みの 動作 は， 50 行〜 90 行までの 2 つの 
FOR〜NEXT 文 （FOR〜NEXT の 繰り返し） によって 行って います， 



ほ 

22 
39 
40 



DATA 350 .370 ,3 30 , 360 ^34$^52 , 368 , 3T5 ,35 1 ,340, 120, 380 
DATA 69 Uh58 ぶ- 55,53,59,60, 53,62, 67 
DATA e^^T, 53,617, 61 ,53, 57^eS, 60,68, ST«0a 



OIU HY0C13^3) 
FOR J«l TO 3 

FOA 1-1 TO 12 

R€A0 HY0(U J) 

HYO(13, J)*HY0< 1 3. J)+HYO(l , J> 
NCXT し J 
LPRtNT TAB<29> ； "3 ク鲁 ■ ク *J 

IPRINT 7* 1 2 

LPRINT TAB<5a) : rt 9 10 
UPRINT " ヽ STft tNM(T9 ノ--) 

し print * t*y* r; ： j^i 

GOSUB 2B2 

LPRiNT - (kwh) に'' 



100 
1 fd 
120 
1317 
140 

170 
I 00 

t9(7 な OSUB 4317 
209 LPRINT * n*a 
Z\§ COSUB 389 
22H LPRINT " («3) ("； 
239 GOSUB 43d 

し PRINT " ス イト' ゥ I - ：： J*3 
GOSUB 

2T(1 IPRJNT - <«3) I "； 
GOSUB 430 

LPRtNT - *;STRING«CT9,"-") 



ク 



3 



y タ 



4 



1 1 



I2 - 



ゥ '； 



5 



ク 



■i 



6 



7 



8 



I*; ： J-2 




:"3- クケィ テ * ン零 

kwh-;HVOC13, 1 } 



TAB C25S ；" fl'X * ； 

using 'tnnn -a- 1 ;hyo< 1 3,2) 

TAB は H イト' ゥ 
LPRINT USING *3" ; HVO < 1 3 , 3) 



380 -----^*7t+ イン シ * 一 

390 FOR 1-1 TO 12 
43 J LPRINT USING - 011 It I " : HYO C I 
N£XT 1 
RETUftN 

439 ■ ヒリ7 インジ， 一一— 

440 FOR い， TO 12 

45ff LPftINT USING " tUUn) I 
NEXT I ； LPRINT 



一 



48(J '—一一 ケィ ir ン —— 

490 LPftINT - + -； 

l-l TO 12 

へ 

520 NEXT 〖 ： LPRINT 
539 RETURN 



'一— 響 v — — 一 — — — 



ん 
i j 

1 1 



サブ/ レ一 チン 
1 



サブ' レー チニ 



ノ 



2 



一 チン J 




,u へ- 7 l^h r 小- f 

bis 人 w は- Lr, 



c3 の 変の 

メイン ル I チ ン 
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ヽ 



100 
110 

122 
130 
140 
150 
1 60 
ITfl 
18(3 
90 



TAB(29) ； ゥ * a ゥリ a ゥ キン シ 3 ゥリ 翻 ゥ" 



LPRINT " y+ 1 
LPFIINT TAB(58) ； "9 10 
" " ； STRINGS (79, " 
" 尸ンキ に：： 
GOSUB 380 
tPR【NT " 
GOSUB 430 
GOSUB 480 



2 



3 4 
12" 



5 



6 



7 



8" 



) 




— ■ 國バ 



100 行〜 140 行までの 命令に よって， プリンタの 4 行 目までの 見出し 等 を 印字して います. 140 



も トリング 



行 目 の STRING $ 関数 を 使って， ハイフン （一 ） による ケィ線 を 印字して います， 160， 180, 190 行 
の GOSUB 文に よ り， 各 サブルーチンの 実行に 移り ます. この 150 行から 180 行まで は， 電気料金 
の 項の 印字 を 行って いる わけです. 190 行で は， その 下の ケィ線 印字 を 行って い ます， 



150 行 
による 
印字 



ぶ 



100 行に よる 印字 



3 9 f 



0 ひ 



ク 牟 



1' 3 クゾ 



(ッ專 


1 


2 


3 C 


b 


6 


- 8 




U 12 J 






、、 -- 一 一 一 一 —ノ 

200 行〜 240 行， 250 行〜 280 行 は， 150 行〜 190 行と 同様にが ス， 水道料金の 項の 印字 を 行って 
います， それぞれの 配列 変数と 対応 づける ために 200 行で J に 2， 250 行で J に 3 を 設定して い 




和 電気 用 

ガス 用 



ヽ 



変数 



•! _;|^ 水道 用 

t 合計 領域 



=3, J 二 1 の 時， 「330」 という デ一 タカ 
対応す る 領域に 読み込まれる 
(HYO (3, 1 )) 



，、 



80 打に よ り 各行 
の 1 〜12 までの 
内容が， 13 に 加 

算 される 




は 未使用 領域 




| 



0 



40 行に よ り 確保され た 
/ 配列 変数 



12 13 




170 行に よ る 印字 




"力 "ス に'； ： J-2 
GOSUB 380 
LPFUNT " (m3) に' • 
GOSUB 430 
GOSUB 480 

LPRINT " スィ ドウ I " に J = 3 
GOSUB 380 
LPRINT 11 (m3) I "； 
GOSUB 430 

LPRINT " つ STRINGS (79 パー'，） 



IJUfT 
* こよる 
印字 



190 行の GOSUB 文に よ つて 実行され る 
サブルーチン によ る 印字 



一一— + 



+ 



• 4 4f- -* 





012345678 9 

2222222222 



r 



J I 

8 

N 

- ,Jr 



o 3 

A 

つ 



8 



た- .J 



？ 



7 



8 9 

3 



-J 8 

5 



5 



8 



o 8 

6 

3 

I [ 

o 6 

3 

3 

o 9 

3 



o 

5 

3 



8 



キ 

ン 



h 
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ます. 290 行 は 13 行 目の ケィ 線の 印字です, 




v. > 



290 行で 使われて いる 「STRING$」 は， 次の ような 意味 を もっています， 

STRINGS (79, 、、一 1 
引用符 （"） で 囲まれた 文字 を， 指定され た 数 だけ 与えます， 1 
例で は， ハイフン （一） を 79 桁 与えて いる ことになります， 

つまり， LPRINT 文の 中で 指定され ています から， ハイフンが 79 桁 印字され る ことにな 
り ま す. ； 

V ^ J 



ヽ 



LPRINT TAB(15) ； "コ ％ ゥケィ f * ンキ " 

LPRINT USING kwh " ； HYO ( 1 3 , I ) 

LPRINT TAB(26> ぶ" 力 * ス n : ， 

LPRINT USING "ittttttt m3" ； HYO( 1 3,2) 

し PRINT TAB(26) 〖"ス イト^? "二 

し PR I NT USING m3 つ HYO(】3-3) 

END 



ゾ' 



こ では 合計の 印字 を 行って います 



ユージン グ 



320 行， 340 行， 360 行の 「LPRINT USINGJ は， 各 命令の 直後に 引用符で 囲んで 指定され て 
いる 書式に 従って， セミコロン に） 以降の データ を 印字し ます. 



310 行に よ る 印字 




330 行に よ る 350 行に よ る 
印字 印字 



320行 による 印字 
340 行に よる 印字 
360 行に よる 印字 



0 

0 

3 



0 0 0 0 0 0 0 

12 3 4 5 6 7 

3 3 3 3 3 3 3 



,-、 
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― ― - …ヽ 

1 シ *7 セキ イン シ * 一一 

FOR 1-1 TO 12 

LPRINT USING " tttttt I";HYO<l , J) ； 
NEXT I : LPRINT 

RETURN ， 
• 一一 1 リツ イン シ * 一^ 

FOR t«1 TO 12 

LPRINT USING "(謂） に'' HYO (し J> /HYO ( 1 3 , J》 木訓： 
NEXT I ： し PR I NT 
RETURN 

， — ^一 —ゲイせ ン イン シ * 

し PRINT B + "； 

FOR I »1 TO 12 

LPRINT M +"； 

NEXT I ： し PR INT 
RE 丁 画 



380〜420 行， 430〜470 行， 480^530 行が メ ィ ン ルーチンから GOSUB 文で 参照す る サブ ル一チ 

[ j さ—— ， 

ン です， サブルーチンの 最後に は RETURN 文が 必要です， 
380 〜 420 行で は， 1 月から 12 月 の 実績 を 印字す る 作業 を 行って います， 
430〜470 行で は， 実績の 下に 各月の 年間 実績に 対す る 比率 を 印字 しています. 
480〜530 行で は， 電気と 力' ッ、， がスと 水道 間の ケィ 線の 印字 を 行って います. 
各 サブルーチンの 最初に アポ ス トロ フィ （リで 始ま る 文が あ り ますが， これ は 注釈の 行です, 

プロ ダラム を 実行す る うえで 何ら 影^ はあり ません， 

この プロ グラムで は， 各 サブルーチンの 意味 を 表す 注釈が 定義され ています， 

5] 処理の 手 瓶 

プロ グラム 例 を フロー チヤ一 トで 考えて みま しょう. 



0 

9 

3 



0 0 0 0 

12 3 4 

4 4 4 4 



0 



0 0 0 0 0 

9 0 12 3 

4 5 5 5 5 
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この プログラム は， あらかじめ 確保した 配列に データ を 人力し， 各 料金 ごとの 合計 を 計算す る 

処理 を 先に 行って います， そして， 配列 内の 値 を 順番に 入力しながら プリンタに 印字して い 
ます. つまり， 今までの 「入力— 処理— 出力 I の 繰り返しの パターンと は 少し 異なって いる わ 




じ め 





HYOU,J 

に 入力 



-1 



HY0C13, J) 

HYCK13-J) +HYO" 



J) 






YES 




i 出し ！ 
口 字 



月 印字 




„ 



ま * 印字 

サ ブ ルーチン 



丄 



「Kwh」 
印字 




比率 印字 

サ プル ーチ ン 



I 



ケィ » 印字 

サ フ' a —チン 




、、、一 



サ ブル 一 チン 




「スィ ドウ」 
印字 




4 5a 合" 
印字 




ガス 合 5 十 
印字 





わ り 




- 比率 印字 サブルーチン 



、 




HYO(IJ) 



HYCX13J) 

印字 



xlOO 




ケィ線 印字 サブルーチン 

丄 



、 



\ 




、 



ノ 



-ン 



—実緣 印字 サブルーチン—、、 

く ロン 1 

1 —1 ！ 

I > I 

印 字 I , 



I— 1 +1 
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けです， 

プロ グラムの 基本 型 は 以前 説明した よ う な 形に なって いますが， 全ての プロ グラムが そのよ 
う な 形に なって いると いう ことで はな く ， 場合によって は 今回の よ う な 特殊な パターンになる 

もの もい く つか あるで し よ う . 

また， 今回の プロ ダラム 例で は 「サブルーチン」 の 機能が 頻繁に 使用され ています • 
プロ ダラム 中で 何度も 使用す る 処理 を 1 ケ 所に 定義して おき， それ を 必要に応じて 参照す る 
というの が 「サブルーチン」 の 機能です 力、 今回 は 実績 印字 を 行う サブルーチン， 比率 印字の 

サブルーチン， ケィ線 印字の サ ブル一 チン を 使って います， 各 処理 は， FX)R~NEXT 文 を 使つ 

て 12 力 月 分の 橾り 返し を 行って います， これ を， 罨気， ガス， 水道 ごとに 実行し ますから， そ 
の た びに， これら の サブ ルー チ ン が 参照 される ことにな り ま す • 

この 様に， サ ブル一 チン 機能 を 利用す る ことにより， プログラム を 簡潔に する ことができ ま 
すから， 同一 処理が 何 力 所 もで て くるよう な プロ ダラム は サブルーチン を 作る よ うにし ます， 




実績 値， 比率 を 印字す る 際に HYO (I J) や HYO (13, J) などが 使われて いますが， 括 

弧 内の 数字 は 「添え 字」 を 表わして います * 

あら かじ め 確保 さ れ た， 実績 値 や 合計 を 人れ る た めの 配列 変数の 特定の 変数 を 参照す る 

ために 使って いる 識別子です， 
HYO (13, J) の 中， つまり， HYO (13,1), HYO (13,2), HYO (13,3) に は それぞれ 
気の 合計， ガスの 合計， 水道の 合計が 人って いますので， HYO(I,J) の I を 1 〜12， J 
を 1〜3 まで 変えて， それぞれの 合計で 割る ことによって， 各月の 合計 値に 対する 比率 を 
求める ことができます. I , J の 変更 は FOR〜NEXT 文で 簡単に できます ね， 

このように， 関連す る 多くの 変数 を 配列 変数と して 確保す る ことにより， 添え 字 を FOR 
〜NEXT 文の 制御 変数と して 使う ことができる わけです • プロ グラムの 流れが わかり 易 く 
なること が 明確です. 




m 命令の 説明 

本章で 新しく 出て きた 命令 を， 見て いくこと にしましょう 

Q DIM 文 



配列 変数 を 確保し ます. 




r 

DIM 变 数名 （添字の 最大 依 〔， 添字の 最大値〕 •'') 



ヽ 



DIM 文 を 書く 時の 注意 は 次の と お り です, 
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* 变 数名 は， 配列 変数 全体につ けられた 名前です， 

• 添字の 最大値 は， コンマで 区切って 255 個まで 指定で きます. 

• 通常 は， 添字 は 0 番 からつ けられます， ただし， これ は， OPTION BASE 文で 1 番カ、 ら 

に 変更す る ことができます. 詳細 は， リファレンス マニュアル を 参照して 下さい， 
• DIM 文で 確保され た 変数 は， 数値 は 0 に， 文字 は 空白に なって います， 



, 例 -- …-- 

(1) DIM A (2， 3， 4) 



—― ■ ——― 、■ 



A 



のよう な 指定 を， 3 次元の 配列と 呼び 



立体 形 





4 ( 0 〜 3) 



ます， つまり， 添え 字の 最大値 
次元 数になります. 右 図の ように， 3? だ 元 
以上の 表に おいて は， どのような 形 を もった 
図形 を 想像しても かまいません， 

皆さんが 使おう としてい るィ メ一 ジで形 

を 考えて いただければ よい わけです， 

また、 この 配列 変数に は 「A」 という 名前が ついてい ますから， 単精度の 変数で ある こ 
とがわ かります， この DIM が 実行され ると， 上図の ような 変数が 確保され ると ともに， 各 
変数に は 「0 I が 人り ます， 



A 


(0 


〜 4) 


3 


(0〜2) 






0 


2 


0 1 




2 


3 








u | リ小ト 


HI! 






II 







包含 閱係を もった 図形 



、■ 



ゴー サブ 

② GOSUB 文 
指定され た サブルーチンに， 実行の 流れ を 移します 



r 



r 



書き方 



ヽ 



GOSUB 行 番号 



• 行 番号 は サブルーチンの 最初の 行 番号で なければ なり ません, 
③ RETURN 文 



サブルーチンの 実行 を 終え， サブルーチン を 呼び出した GOSUB 文の 次の 文へ 流れ を 移し ま 



す, 



r 




RETURN 〔行 番号〕 



• 行 番号 を 指定す ると， 指定され た 行 番号の 行へ 実行 を 戻します, 

④ LPRINT USING 文 
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デ一 タを 指定した 書式で 印字し ます. 




飞 



LPRINT USING や 書式 制御 文字列" ；式 〔{ M 式〕 • 



LPRINT USING 文 を 書く 時の 注意 は 次の と お り です, 



書式 制御 文字列で は， プリンタ に 印字す る デー タの 形式 を 指定し ます, 



'ヽ 



* 



式と 式の 区切りに 使われる セミコロン （；） と コンマ （，） は どちら を 使っても 違い は あ 
り ません. 

書式 制御 文字と して は， いろいろな ものが 用意され ています が， 詳細 は リファレンス マ 
ニュ アル を 参照して 下さい， 

書式 制御 文字 以外の 文字 を 書式 制御 文字列で 指定す ると， その 文字が そのまま， その 位 
置に 印字され ます， 



例 



(1) LPRINT USING 、、△△###• ぎ ； 123, 23,5, 3-856 




ト 



印字す ると 

① 《 



② 



③ 



AA123.00 ■' AAA23.50 ' AAAA3.86 
(D は， 数字が そのまま 印字され ます， ただし 書式の 中のに」 は 小数点の 位置 を 表します 
から， 小数点の 位置が 桁 合わせして 印字され ています. また 小数 部 は， 必ず 「^の 数 だけ 印 
字され ます， 

は， 同じく 小数点で 桁 合わせして 印字され ています が， 整数 部が 2 桁し かないた め， 余 



つた 「お」 の 桁 は 空白に 置き 換わります. 

③は， 小数 部の 指定が 2 桁 （〜， m しかない のに， データの 方 は 小数 部が 3 桁 ありま 

す • このような 場合 は， 指定され た 小数 部の 桁 （例で は 2 桁） の 次の 桁 を 四捨五入し 指定 
された 桁 数 分 だけ を 印字し ます. 

(2) LPRINT USING "タン 力 厶厶林 MM 丽, △ ェンっ 1234567 

& 印字す る と 
タン 力 厶厶1,234,567/\ ェン 

この場合 は 「#」 の 前後の 「タン 力」 と 「ェ ン」 がその まま， 指定され た 位置に 印字され ま 
す， また 「#」 の 文字列の 最後に 「，」 があります が， この 指定 をす ると， データ を 3 桁 ご 
と に コンマで 区切って 印字し ます. ' 



■、、■ 



⑤ STRING$ 関数 

任意の 文字 を 任意の 数 だけ 与えます 
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， ■■■■ 1 



STRINGS 関数 を 使う 時の 注意 は， 次のと おりです, 



——― ——― ― 



• 文字 式 を 指定す ると， 最初の 1 文字が 有効になります. 

'数式 を 指定す ると， その 数値 を キャラクタ コードと みなし， 対応す る 文字 を 取り扱い ま 



す, 



式 は， 指定され た 文字の 必要 桁 数 を 指定し ます 



、― 




" 巴 \ 
BLOCK$ = STRINGS (70, 



LPRINT BLOCK$ 



V 

* ル+ ^ i ^や +少 tjf^Jk^slfStc^afC'Jie 
^W^> -^pi ^T^'' 1^ '■， — i— 一 f 



ン 



70 個の 「*」 が 印字され る 



〜ヽ 



■ — ノ 



レ 



⑥ REJV [文 

プロ ダラム 中に 注釈 を 人れ ま す， 




REM 〔注釈 文〕 



REM 文 を 書く 時の 注意 は， 次のと おりです. 



ヽ 



； • REM 文の 行 は， すべてが 注釈になります， 

！ • 「REMI の 代わりに アポストロフィ （，） を 使う ことができます 



— 雷 さ 刀 

、 

STRINGS (式 
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ァ ィルの 問い合わせ 



本章で は， 任意の データ を 直接 入力 

したり， 直接 出力した りする ことが 

できる ファイルの 作り方と， その フ 

了 ィ ルを 使った 問い合わせの プロ グ 

ラムに ついて 学習し ます * 



本章の ポィ ン ト ^ 



。 ランダム ファイルの 作成 

。 ランダム ファイル を 使った 問い合わせの 方法 

_ J 



第 1 節 ラン ダム な 入出力 がで きる フ アイ ルの 作成 



ここで は， 任意の データ を 直接 人力したり， 出力した リ する ことができる 「ランダム フ アイ 
ル」 の 作成 方法 を 学びます. 
m 住所録 ファイルの 作成 （例題 5 — i) 





例題の 概要 




r | 





次の よ う な 画面の も とで， 住所録 データの フロッ ピィ ディ ス ク への 登録 を仃 います * 




© 住所録 データの 登録 は， 登録番号 を も とに 行います， 
© 登録番号 は、 次の よ う な规貝 lj の も とに 番号 付け を 行います 



人 入 X 

r r 

50 音 別 区分 連番 



氏名の 頭文字の 種類に よ り 
区分 番号 を 付け 分けます. 



50 音 別 区分 は， 次のように 規定して おきます 



50 音 


ァ 


ィ 


ゥ 


、 

V ■ 國 


ォ 


力 


キ 


ク 


V 




サ 


ン 


ス 


セ 


ソ 


タ 


チ 


ッ 


丁 


ト 


十 




ズ 


ネ 


ノ 


区分 番ゅ 


0 


1 j 


2 


3 


4 


5 


6 


7 


8 


9 


10 


! 11 


12 


13 


14 


15 


16 


17 


18 


19 


20 


21 


22： 


23 


24 


50 音 




ヒ 


フ 


へ 


ホ 


マ 


、 
、 


厶 


メ 


モ 


ャ 


ュ 


ョ 


ラ 1 


'J 


"レ 


レ 


o 


つ 


ン 












K 分 番号 


25 


26 


27 


28 


29 


30 


31 


32 


33 


34 


35 


36 


37 


38 


39 


40 


41 


42 


43 


44 













ここで は， 同一 50 音で 始まる 氏名 は 10 件 以内と いう ことに 仮定して おき ましよ つ * つま 
り， 連番 は 1 桁 （0〜9) の 範囲です. 
© 氏名 は 13 桁， 住所 は 40 桁 以内の 人力と します， 

© 郵便番号 は 5 桁で 人力し ます. ただし， 3 桁で よい もの は 3 桁で 登録し ます. 
© 電話番号 は， ^外 局番， 市内 局番， 加 人 者 番号の 間に ハイフン （一 ） を 人れ ます. 




LLH. 
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処堙の 条件 



1 人 分の データ 登録 後， 19 行 S で 「次の 処理」 として 何 を 行う かの 確認 人力 を 行い ま 
す. 確認 入力の 種類と それに 応じた 処理 は 次のと おりです. ' 



入力 文字 



C 



B 



* 



E 



* 



今人 力され た データ を フロッピィ に 出力し， 次の データ を 人力で き 
るよ う 画面 を 表示し 直します. 

今人 力 し た デ一 タ に 人れ 間違いが あ つ た 場合で， 登録番号の 位置へ 
戻し， 入れ 直しが 可能な 状態に します， 

今人 力され た データ を フロッ ピィ に 出力し ， プロ グラム を 終了 し ま 
す. 



プロ ダラム 作成 上の 注意点 



いま まで 取扱って きた ファ ィ ルは， すべて シーケンシャル フ ァ ィ ルと 呼ばれる フ ァ ィ ル でし 
たか'， 今回 取り扱う 「ランダム ファイル」 は， 次の ような 点で シーケンシャル ファイルと 異な 
つてい ます， • 



ヽ 



(1) ファイル 準備の OPEN 文で， 「FOR モード」 は 省略し ます， 

(2) フロッピィ ディスク 上の ファイルと メモリ 間での データの やり と り は， 必ず 「ランダ 



ム バッファ」 を 用います 



256 桁の 領域 




ラング ムノヽ ッファ 



数値 デー タ 等で 
t 算に 使用す る もの は， 

ランダム バッファ 

から 別の 変数に 値 を 
移す 



なお， ランダム バッファ は OPEN が 実行され た 時点で， 自動的に 確保され ます， 

(3) ランダム ファイルからの データの 人力に は 「GET」 文， ランダム ファイルへの データ 

の 出力に は 「PUT」 文 を 使います. 



V 



_ノ 



a プログラム 例 

次に プログラム 例 を 示します. 実際に プログラム を キーボードより 入力し， 実行して みて 下 
さい， 
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10 OPEN '■ 1 r JUSYOF" AS «l 

20 FIELD 1,13 AS SHI ME I $,40 AS JUSYOS.6 AS AS TELNOS 



30 PRINT CHR$( 12) 

40 LOCATE 26, I : PR I NT "シ' 3 ゥシ i o ク サク t ィ" 

50 LOCATE 9, 3： INPUT "トウ D クハ， ン:] ，ゥ —— > tt ;BANGO 

60 LOCATE 9, 6: INPUT "シ メ ィ > " ;KSHIMEt$ 

70 LOCATE 9, 9： INPUT '，シ *3 クシ s > " ； K JUSHO« 

80 LOCATE 9/ 12 ： INPUT ' コ ゥヒ * ン /ビン： T ゥ > ":t(UBIN$ 

90 LOCATE 9,15： INPUT "TEL - NO > w ;KTELNO* 



100 LOCATE 53/19: INPUT 'NEXT PROCESS (C/B/E) - ； NP* 

1 10 IF NP$-"C" THEN GOSUB 160： GOTO 30 

120 IF NP$="B" THEN 50 

130 IF NPS^'E" THEN GOSUB 1 60 : CLOSE : END 

140 GOTO 100 

】5B ' --FDD PRINT- 

160 LSET SHtME l$=KSHIME l*:LSET JUSHO$-K JUSHOS 
170 し SET UBI N$=KUB〖N$:LSET TE L NO*-KTELNO« 

180 PUT 1 /BANGO 

190 RETURN 



150 行から 190 行 は， キー ボ一 ドょ り 人力した データ を フロッ ピィ ディ スクに 書き出す サ ブル 
—チンです. 



それで は プロ グラム を 分けて 見て いきま しょう。 



、, 



10 


OPEN " 


1 ： JUSHOF" AS 


#1 








20 


FIELD 


し 13 AS SHIME l$,40 AS JUSHOS, 


6 AS 


UBIN$,13 AS 


丁 ELNO$ 


30 


PRINT 


CHRS(t2) 










40 


LOCATE 


26, 1 : PR INT 


"シ * 3 ゥ シ B 


□ ク 


サクセ 




50 


し OCATE 


9, 3： INPUT 


"トウ 0ク八* ンコ * ゥ 


— > ** 


； BAMGO 




60 


LOCATE 


9/ 6： INPUT 


"シ メ ィ 


-> " 


;KSHIME($ 




70 


LOCATE 


9, 9： INPUT 


*シ*3 ゥシ 3 


、 H 


； K JUSHOS 




80 


LOCATE 


9,12： INPUT 


W ユウ t* ン八， ンコ * ゥ 


— > " 


； KUBIN$ 




90 


LOCATE 


9,15： INPUT 


"TEL-NO 


り W 


； KTELNO$ 





— — — — ，國 具 ¥ ^»息—1_，國— # 科 — — —國+國國國& — まま— — — — 匿 ■ — ■ — A — — 一 — ， 一^ 一 — 一 —— ム丄ュ —ん i — iii^i 國國國 漏國— 漏 國— 

10 行 目 は， ファイル 準備の 命令です ね， ランダム ファイル ですから， 「FOR モード」 が 省略 さ 
れ ています， また， この 命令に よって， ランダム バッファ （256 桁） が メモリ 上に 確保され ます， 

20 行 目 は， IFIELDJ 文に よって， ランダム バッファ を 項目 ごとに 区切って います， たとえば 
256 桁の 先頭から 13 桁に 「SHIMEI$」 という 名前 をつ けて， 氏名 を 人れ る 領域 を 割り当て てい 
る わけです， 

30 行 目で は， 画面 を 消去し， 60 行〜 90 行で 「氏名 丄 「住所」， 「郵便番号」， 「電話番号」 等の 
住所録 データ を， キーボードから 入力して います， 各 変数の 名前が， ランダム バッファで 定義 
されて いる 変数 名と は 違って いる こと に 注意して 下さい. これ はキ一 ボ一 ド から 人力した デ一 
タを， 直接 ランダム バッファの 各項 目へ 人れ る こと はでき ないから です. 

また， 50 行で 入力して いる 「BANGO」 は， これから 登録す る データ を 何番目の データと して 
登録す るか を， 決める 番号です. この 番号が， 特定の データ を 人力したり 出力す る 時の 呼び出 
し 番号に なり ます， 
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20 行の 

FIELD 文に よる 定義 




メモリ 



SHIMEIS 



JUSYOS 



UBIN$ TELNOS 




ラ ン ダム バ 'ソファ （256 桁） 



KTELNOS 



KUBINS 



KJUSYOS 



KSHIMEIS 



BANGO 



J 



90 行に よる 
表示 • 入力 




乂 



12f0 
1 10 
120 
1 30 
140 



160 
170 
1 80 
90 



LOCATE 53, 19： INPUT "NEXT PROCESS (C/B/E) " 
IF NP$»"C" THEN GOSUB 160 ： GOTO 30 
IF NP$="B" THEN 50 

IF MPWE" THEN GOSUB 1 60 ： CLOSE ： END 
GOTO 100 

， 一一 FDD PRINT 

LSET SHIME1$-KSH[MEI$:LSET JUSHOS-K JUSHO$ 
LSET UBIN$-KUBIN$:LSET TELNO$-KTELNO$ 
PUT 1 /BANGO 
RETURN 



NP* 



-ノ 



100 行で は， 次の 処理と して 何 を 行う か を 示す 確認 入力と して 文字 を 入れさせ ています. 入 
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力され た 文字に より 以降で 行う 作業が 異なり ますから， 110〜140 行で， IF 文で 押された 文字 
を 調べ， それによ つて 処理 を ふり 分けてい ます， 

「C」 が 押されたならば， 160 行から 始まる サ ブル一 チン を 実行し， フロッピィ ディスクに デ 
—タを 出力した 後， 30 行に 実行 を 移して います， 別の データの 人力 を 続ける ことになります， 

「B」 が 押されたならば， 人力 ミスが あつたと いう ことで， 50 行へ 戻し， 登録番号から 入れ 
直し を 行わせます. 

「E」 が 押された 場合 は， まず 入力 済みの デ一タ を フロッピィ ディスクへ 出力し， プロ ダラ 

ムを 終了に しています. - 
140 行で は 上記 以外の キーが 押された 時に 100 行へ 戾し， 正しい キ 一を 人れ 直させて います， 



150 行からの サブルーチンで， フロッ ピィ に データ を 書き出し ています. 



160 行から 170 行に かけて 使われて いる 「LSET」 文 は， 20 行で 定義され ている ランダム バッフ 
ァの各 変数に， キ一 ボードより 入力され た 値 を セットす る 命令です. 「LSET」 の 「L」 は Left 
(左） の 意味で， ランダム バッファの 各 変数に 値 を セットす る 際， 左側に つめて セットし ます， 

そして， データ をす ベて ランダム バッファに セットした 後で， 180 行の 「PUT」 文に より， ラ 
ン ダム バッファの 内容 を フロッピィに 書き出します. 

「PUT」 の 後の 「 1 」 は， ファイル 番^です， 10 行 目の OPEN 文の ファイル 番号と 対応 づけ 
られ ています， また， その後に コンマで 区切り， 「BANGO」 とあります が， ここで 指定され た 
号が， データの 登録番号になります， この 登録番号の こと を 「レコード 番号」 と 呼びます， 
19(H 了 目の 「RETURN」 は サブルーチンの 出口 を 表す 命令です. 




レ 
づ 



ト' 



206 

207 
208 

210 
211 



二 チデン タロウ 



ノ 



ニイ 力' タケ ン ショウ エツ シ〜 



トウ キヨ ゥト 



943 




ミナト: —ン パ 1 



105 



寸 



0255 43-1211 



03-454-1111 



メ 



SHIMEI$ JUSYOS 




データ 力、 
登録され て 
いない 領域 



180 行に よ る 
書き出し 



フロ ッヒィ ティ スク 



メモリ 



UBINS TELNOS 



ュ ゃ千ソ 9 P ゥ 1 


《 
丄 

キ 
丄 











ノ 



ノ 



ニ+ チン タロウ 



KSHIMEIS 



/ 



トウ キヨ ゥト ：' ナ トク ンパ 


I 
I 

\ 


105 


1 t i 
i 


03-454-1111 




211 


KJUSYOS 


KUBIN$/ 


KTELNO$ 


BANGO 



ヽ 



V 



ヽ 



、 



V 



、 



ゾ 



160 行に よ る セット 



170tr 

による セツ 



卜 



(1) 前項の 図で， も 出て きてい ますが， 1 件の データの こと を 「レコード」 と 呼び， フ アイ 
ル 中の 他の データとの 相対的な 位置 関係 を 表す 番号 を， 「レ コ一 ド 番号」 と 呼んで います， 

(2) ランダム ファイルの 場合， 任意の 位置へ データ を 書き出す ことができ ますから， 途中 

に デ一 タ が 記録 されて いない 領域が 存在す る 場合が あります， i 

(3) 既に データが 登録され ている レコード 番号の 位置へ， 新たに データ を 書き出す と， 以 | 

！ 前の データ はこ わされ， 新しい データが 記録され ます， 

： (4) 数値 データ （整数 変数， 単精度 変数， 倍精度 変数に 人って いる データ） は， 直接 ラン 
ダム バッファに セットす る こと はでき ません. MKI$, MKS$, MKD$ 等の 関数 を 使って 
形 を 変換して から セットし なければ なりません し， 詳細 は リファレンス マニュアル を 参照 
して 下さい， 

^ ^ リ 



本節で 新し く 出て きた 命令 を， 見て いく ことにしましょう, 
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ランダム 

バザフ T 定農 



トで 考えて みま しょう， 

フロ —チャードの 流れ を 見ても 分かる ように， ランダム フ 

ァ ィ ルを取 り 极 う プロ グラム は， 今 ま での シ一ケ ンシャ ルフ 
ァ ィ ルを 取り扱つ ている プロ グラムと 何ら 変わり はあり ませ 
ん， キーボードから 人力した デ一タ を， ランダム バッファに 
セッ ト し （処理）， それ を フロッ ピィ に 書き出し ている わけで 
す （出力)， 

違い は， ランダム フ アイ ルを 使用す る 場合に 必須の ラン ダ 
ム バッファの 定義が 必要な こ とです. ランダム バッファの 定 

義とは 「OPEN 」 命令 で 確保 さ れ た 256 桁の 領域 を 項目 ごとに 
分けて 「FIELD 文」 で 区切る ことです： また， フロッピィへ 
の データの 書き出し は， ランダム バッファの 単位 （256 桁） で 

行います. 

なお， データの 出力の 際 は， 任意の 位置への 書き出しが 可 

能です から， プログラム 中で， どの位 置に 書き込む かその 位 
置 を 示す レコ一 ド 番号 を 人力させる 処理 も 必要に なって く る 

でしよ う， 

また， この プロ ダラムに おいて， 次の 処理 人力で 「B」 が 
押された 時， データの 人れ 直しが 可能に なって います， しか 
しキ一 ボード を 操作して いく うえで， 操作 ミスと いう もの は 
避ける こと はでき ません， そこで， プログラム 中に 操作 ミス 
が 発生した 時の 修正の ための 処理 を 入れて おく ことにより， 
プログラム をより 完全な ものにする ことができる 訳です. 



m 処理の 手順 

プロ ダラム 例 を， フロー チヤ- 



c 



； i じ め 




マ，" 出 fj 
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" 出り 
ザ"/ ルー 早ン 



フ T ィ ノレ 
後始 * 



命令の 説明 



氏名 




のセ -ノ 
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&所 

のセッ 
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» 便 番号 
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のセ ^ 







フロ ヅ ヒーへ 

パ- 出力す る ―、 

j サ ブル一 チン 
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ft 所 入力 



:a# 号 人力 



ヽ 
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① FIELD 文 



ランダム バッファ をい く つかの 変数 領域に 区切り ます 




FIELD 〔#〕 フ アイ ル 番号， フィ一 ル ド幅 AS 文字 変数 名 

〔， フ ィ ール ド幅 AS 文字 変数 名〕 



に 



FIELD 文 を 書く 時の 注意 は， 次のと おりです, 



ヽ 



* 



フ アイ ル 番号 は， OPEN 文に より ファイル を 準備し た 時に 指定 し た 番号です. 

マイ一 ルド 幅 は， 「AS」 で 対応 づけら れた 変数に 割り当てられる 領域の 桁 数です. 1 つの 

変数 は 最大で 255 桁まで 割り 当てで きます， また， FIELD 文で 指定す る フィールド 幅の 合 
計 は 256 桁 以内で なければ なり ません. 



の 文 は， GET 文， PUT 文の 前に 指定され ていなければ なりません 



v 



-ノ 



エル 七 ■■/ ト アール セット 
② LSETZRSET 文 

ランダム バッファの 各 変数 領域に 値 をセッ 卜します 




LSET] 
RSET, 



文字 変数 名 二 文字 データ 



LSETZRSET 文 を 書く 時の 注意 は 次の と お り です, 



■ ■ 

i 'ランダム バッファに データ をセッ ト する 際 は， 必ず LSETZRSET を 使わなければ なり ま | 

： せん- ！ 

： 'LSETZRSET を 使って ランダム バッファに セッ ト する データ は， 文字 データで なければ ； 
： なりません * 数値 データ は， 「MKI$」， 「MKS$ 丄 「MKD$」 のい ずれ かで 文字 データ | 

！ に 変換して おく 必要が あります， i 

j '文字 データの 桁 数よりも， 対応す る フィールド 幅の 方が 長い 場合 は， LSET が 左詰め， | 

： RSET が 右詰め に データ を セットし ます. ！ 

： '文字 データの 桁 数が フィ 一 ルド 幅よ り 長い 場合 は， 余分な 右側の 桁が 切り捨てられます. i 

K 一 - -— -— "- —― —…- - ……- - ) 
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10 OPEN 、、1:SAMPLE" AS 1 

20 FIELD 1,10 AS A$J0 AS B$,10 AS C$ 

30 LSET A$= "ABC" ： RSET B$ 二 "XYZ" ： RSET C$= "ABCDEFGHIJKL" 

40 PUT 1 

50 CLOSE:END 



A$ B$ C$ ランダム バッファ 

1 f t i i i ~ rn i ~~ m~i ~ r i t r r r i 



ABC 



X YZ ABCD EFGH I J 



10 桁 10 桁 10 桁 



③ PUT 文 



ランダム フ アイ ル ヘラン ダム バッ フ ァ の 内容 を 出力し ま す 



0 



H 書き方 



PUT 〔#〕 フ アイ ル 番号 〔，レ コー ド 番号〕 



PUT 文 を 書 く 時の 注意 は ， 次の と お り です , 



1 

指定され た フ アイ ル 番号に 対応す るフ アイ ルに ラ ン ダム バッ ファの 内容 を， 書き出し ま 



す. 

レコード 番号が 指定され た 場合 は， その 番号に 対応す る 位置へ， 省略され た 場合 は， 順 



番に データ を 出力して いきます. 



—- ノ 



パ，. 




130 
140 



RECNO = 
PUT 1， 



5 、 
REGNO 



5 





き f 



X. 
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第 2 節 



ンダ厶 ファイル を 使った 問い合わせ 



ここで は， 第 1 節で 作成した ランダム フ アイ ルの 問い合わせ を 行う プログラム を^え てみ 
ましょう。 プログラム 作成 上の 注意 は 第 1 節と 同様です。 

m 住所録 ファイルの 問い合わせ （例題 5 — 2) 

{ Q 例題の 概要 1 —— . 

次の よ う な 画面 を 使って， 登録番号 を も と に 住所 錄フ ァ ィ ルの 問い合わせ を 行い ま す. 
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処理の 条 件 

'画面 3 行 目で， 問い合わせ を 行いたい データの 登録番号 （レコード 番号） を 人力し， 

該当する データ を ファイルより 入力し ます. 
' 各項 目の 表示 位置 は 上図の と お リ です が， 郵便番号の 前 3 桁と 後 2 桁の 間に は ハイフン 
(一） を 表示し ます. 

■ 1 件 分の データ 表示 後， 画面 19 行 目に おいて 次の 処理 をホす 確認 人力 を 行います. 人 
力 文字の 種類と それに 応 じ た 処理 は 次の と お り です— 



入力 文字 




画面 を 表示し 直し， 別 データの 問い合わせが できる よ うにし ます 
プロ ダラム を 終了させます， 
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プログラム 例 

次に プログラム 例 を 示します， 実際に プロ ダラム を キーボードより 入力し， 実行して みて 下 
さい. 



10 仃 目で ファイル を 準備し， 20 行 目で ランダム バッファの 区分け を 行って います， 30 行， 
40 行 は， 画面 消去と 見出し 表示です， 

50 行 目で， 変数 BANGO に レコード 番号が 入力され ますから， 60 行 目の 「GET」 文で， 指定 
された レコ一 ド 番号の 位置から データ を 入力して きます. 
人力され た データ を 各項 目 ごとに 所定の 位置へ 表示して いるの が， 70 〜： L00 行の 命令です。 
表示 内容 を 確認 後， 110 行 目で 「次の 処理」 に対する 確認 入力 を 行います， ここで 押された 
キーが 何で あるか を 120 行， 130 行で 調べ， その 文字に 応じて 処理 を 行って います， 「C」 が 押 
されて いれば， 30 行に 戻り 别のデ 一タの 問い合わせ を 行います. 「EJ が 押されて いれば， ブ 
ログ ラムの 終了に します. また 押された キーが， 「C」 でもな く 「E」 でもない 時 は 110 行へ 戻 
り， キー を 入れ 直させます. 

90 行 目に 新たに 出て きた LEFT$， RIGHT$ 関数 は， 文字の 並び （文字列） の 左 または 右側 
から 指定 文字 数 だけ 抽出して くる 命令です， 郵便番号 は 5 桁の 文字で 登録され ている ので， 3 
桁と 2 桁に 分割して 取り扱う ために は， これらの 関数 を 使う 必要が あり ます， 



20 
30 
40 
50 



ゥ * ゥ" 



了 0 
80 
90 
100 

1 10 
1 20 
130 
140 



OPEN "JUSYOF" AS «1 

FIELD し 13 AS SHIMEH40 AS JUSYO*,5 AS UBINS, 13 AS TELNO* 
PRINT CHR*( 12) 

LOCATE 26, 1 :PRINT ' 'ト ィ 7 7 せ シ、 
LOCATE 18, 3： INPUT "/r ンコ * ゥ '■ : BANGO 
GET 1 /BANGO 

LOCATE 9, 5 ： PR INT "シ メ ィ -> 

LOCATE 9, 8 ： PR INT "シ *コ ゥシ a ― > 

LOCATE 9, M :PRINT "ユウ ン /ビン: T ゥ > 

LOCATE 9, I4:PRINT "TEL- NO > 

LOCATE 53, 19: INPUT "NEXT PROCESS <C/E) 
IF NP$="C" THEN 30 
IF NPS^-E" THEN 140 ELSE 1 10 
CLOSE ： END 



" ； SHI ME 1$ 

" : JUSYOS 

"； LEFTS(UBIN$,3) 

" ;TELNOS 

； NP* 



» _ n 



f ノ 



一 f 



2^ 



i? U H il ri I? -J ilio 



i J/ « h K HV ii n m J iJi ji M Jr ii 



mitiuMy J jfe si u i， U " uWil 



" U W H (*r H(f « Fl 



？ 2 



" Tt ni* n it 'T 4 Tt n ^2 



さ, 

- ~ j— ■ 



命令の 説明 

本節で 新し く 出て きた 命令 を 

① GET 文 



見て いく ことにしましょう 



ランダム ファイルの 中の データ を， ラ ン ダム バッ ファに 読み込みます 



r 



r 



書き方 



GET 〔#〕 ファイル 番号 し レコード 番号〕 



GET 文 を 書く 時の 注意 は， 次のと おりです. 



60 行に よ る 入力 



SHIMEIS JUSYOS 



TELN0S 



50 行に よ る 
入ん 表示 




二 チデン タ p ゥ | トウ キ》 ゥト ミナ トク シパ 



I 画に 1 



r» * 4，\j ' 1 1 1 1 




70 行に 

よ る 
表示 



《---80 行に よる 表示 
BANCO 



[ 



211 



に- 一 90 行に よ る 
表示 



100 行 

"- によ る 
表示 



N 



\ 
\ 

\ 
i 



iX i 1 ] 



i} I] it II »t IT II II » 



ヌ, ""ふ 》 r， " rtwlfi w u w » jt >， j> m ぷ *j ww， " *•， m ? v %i y 






*- 



2m 



210 



211 + タ o ゥ 



ナカ ムラ ン は ゥ 



ニイ 力' タケ ン ジ， ゥ真ッ ン * 



943 




0255 43 1211 



？ 0 



ま 



19 



21 



110 行 

よ る 



« に 表 



2 



3 



5 
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入 



指定され た フ アイ ル 番号に 対応す るフ アイ ルか ら ランダム バッファに， デー タを 読み込 

みます. 

レコード 番号が 指定され た 場合 は， その 番号に 対応す る 位置から， 省略され た 場合 は， 
以前に 人力した データの 次の データが 人力され てきます. 



、、醒 一- 



/'一 



® 



、！ 



30 OPEN "SAMPLEF" AS 1 

40 FIELD 1， 10 AS A$， 10 AS B$, 10 AS C$ 



150 GET 1 



250 GET 1 



s 



-f ブ 一 

150 行の GET 文で 入力 され ノノ 

― — ^ ― ― ― ― 一 ^―. - 一 一 ^ ― 



タ - 

. 一 



250 行の GET 文で 入力さ^^ 

' ― ― ― ^ ■ ^« ― ― ■ ― ■ ^―. ― -^— ― ■ 



ノバ 
ぉィ バ 



ノ 



1 

2 

3 
4 

5 



101 


A 




103 


B 




105 


C 




108 


D 




115 


E 




\ ' 


\ 


S 



② LEFT$ 関数 ZRIGHT$ 関数 
指定され た 文字列の 左側から， または 右側から 指定され た 桁 数 を 柚 出します, 




し EFT$ 
KIGH I ^> 



(文字列， 数式) 



LEFTS RIGHT$ 関数 を 書く 時の 注意 は， 次のと おりです- 



r 



-ヽ, 



V. 



• 



数式 は， 0〜255 の 範囲に なければ なりません， この 値が， 文字列から 抽出して くる 桁 数 i 
になり ます， 

数式の 値が， 文字列の 桁 数 を 超えて いる 場合 は， 文字列 をす ベて 取り出します. 
数式が 0 の 時 は， 何もと り 出しません. 



& ■ ■ 




PRINT LEFT$ に ABCDEF つ 3) 
PRINT LEFT$ ("ABCDEF", 8) 



* 



琴 



PRINT R 1 GHT $ に ABCDEF", 2)— 




5 章まで は， 各種の データ を 表に 表 

わした リ， ファイルに 出力した リ し 
ました。 本章で は， データ を グラフ 

に 表わす こ とに 挑戦して みま しょう. 



^ ^本章の ポィ ン トー^ ~ , 

画面 上に 任意の 線 や 四角 を 表示す る 方法 ！ 
画面 上に 円， および， 扇形 を 表示す る 方法 ！ 
グラフに 色 を 塗る 方法 



第 1 節 棒グラフと 円グラフの 作成 



では， 棒グラフと 円グラフの 表示 方法 を 学びます 
m 棒グラフと 円グラフの 作成 （例題 6 — 1) 



例題の 概要 



数値 デ一 タを 入力し， その データ を 分析す るた めの 棒グラフと 円グラフ を 画面 に 表示 し 
ます， データ は， 毎月の 食費 データ を 1 年分， ある 月の 費用 科目 別 データな ど， なんでも 
かまいません, 

◎ 入力 方法 震 霧る •、•':''-•、:; ： 南^ マ. 響麵 寒ず 赠% 漏 

入力 促進 文 （プロンプト 文） "デ一 タハ？ "と 表示し， 1 件ず つ データ を キー 人力し ま 

す. データ 件数が 12 件に 満たない 場合， 「99999」 を キー 人力す ると デ一タ が 終った 合図 
とします， 

◎ 棒グラフ 表示 、' 




左側に 入力 データ， お 側に 棒グラフ を 表示させます. 棒グラフの 目盛り は， 最大値 を 



10 のべき 乗 (10， 100， 



させます * 




〜） とし， それ を 10 等分して 表示させます， 棒 は 色分けして 
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プログラム 作成 上の 注意点 

画面に グラフ を 表示す るに は， 次の こ とがら を 知って おかねば な り ません, 
* テキスト 画面， グラフィック 画面の 使い方 

• 線 * 四角' 円の 表示の 仕方 

• 色の つけ 方 




左側に 入力 データ， 右側に 円グラフ を 表示させます， 円グラフの 各項 目 は， 色分けし， 
入力 データに 対応させる 番号 を カツ コ 付きで 表示させます, 

処理の 条件 

入力 データ は， 最大 12 件です. 
♦ 棒グラフの 表示 は 

① 12 件の データ 入力が 終った とき 

② 「99999」 が 入力され たと き 

に 行い ます • ^^^^^^^^^^^^^^^^^^^^^^^^^^^^P 2 
，棒グラフ を 数秒 間 表示したら， 自 動的 に 円グラフ に 切 り か えます， ^ 

* カラー は， 7 色 を 使って 青， 赤， 紫， 緑， 水色， 黄色， 白の 順に 表示させます * もし, 

データが 8 件 以上 ある 場合， また 青から 順にく りかえ し 表示す る ことにします， 



◎ 円グラフ 表示 






禱義 s，^9 赫る お^あ ％ 



s t s S. ,奢 *• 豳 4 ゅ國 麵霸 

t 4^ 4 S 6- 8 9 0 1 
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ここで， その 考え方 を 学んで おきましょう, 



テキス ト 画面と グラフ ィ ッ ク 画面の 使い方 



数字 や 文字 （グラフィック シンボル を 含めて） を 表示す るに は， テキスト 画面 だけ あれば 事 
足ります が テキスト 画面と あわせて グラフ ィ ック 画面 を 使用す ると 多様な 画面 作り が 可能に な 
ります. 



テキスト 画面 




、 



、 



、 



グラフ ィ ック @® 




、 



ノ 



ズ 



、 



、 



、 




アイ スフレ 4iiitl 



(SCREEN 文で 組み合わせて 表示させる） 



線' 四角 • 円の 表示の 仕方 



テキス ト 画面への 文字 や グラフ ィ ッ ク シンボルの 表示に は， まず， LOCATE 文で 表示 位置 （左 
からの 桁 数， 上からの 行数） を 指定し， 次に， PRINT 文 を 使って 指定 文字 を 表示 させ ましたね. 



8 桁 目 



10 行 目 




LOCATE(7'9) ： PRINT"ABC" 



ところが， 線 * 四角-円 など は， グラフィック 画面に 表示し ます， この場合， グラフィック 
画面 上の 表示 位置つ ま り 座標の 指定が 必要です， 

グラフィック 画面で は， 点の 表示 は PSET 文， 線お よび 四角の 表示 は UNE 文， 円 や 楕円の 表 
示 は CIRCLE 文で 行います. もちろん， これらの 文 は， すべて 表示 位置つ ま り 座標が 指定で き 
る 形式に なって います， 

ダラ フィック 画面の 座標 は， テキスト 画面の 座標に 比べて， たて， 15 
は 16 倍の 精度の もの も ある） になって います. 



と も 8 倍の 精度 （たて 



つまり， 横 80 桁の 8 倍です から， 640 の 点， たて 25 行の 8 倍です から， 200 点の どこかと いう 

640 



こ と です. 

試しに やって みまし よ う. ディ ス プレイ 画面の 中央に 半径 10 文 
字 分の 円 を 書く に は， 次のように 指定し ます. 200 




640X200 
128000〃 



s 



312 



糸 



CIRCLE (312， 96)， 



80， 



横座標 



7 



96 



たて 座標 半径 色 

(白) 



80 1 





， 
















:0 \ 



これで， 横座標 312, たて 座標 96， 半径 80 の 白の 円が 書け ます. 
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円グラフの 中に 文字 や 数字 を 表示す る と き は， テキス ト 画面と ダラ フィ ッ ク 画面 を 合成して 
表示す る ことになります. ダラ フィック 画面の 座標 か ら テキスト 画面の 桁 数 や 行数 を 逆算す る 

に は， 横座標， たて 座標 を 8 で 割り算 すれば よい わけです. また， 1 文字が 8 つの 点に 対応し 
ますから， 文字の 中心に 合わせた いとき は， グラフィック 座標 を 4 点 分 だけ ずらす ことにな り 

ます. 




12 は， 3 文字の 中心， つまり， 1.5 文字 分 （ 8 + 4 ) のこと で， ABC を 中心に もってくる ため， 
1,5 文字 分 左へ ずらした 点 を 指定した のです. テキスト 画面 は， 位置 指定が 粗い ので， 割り きれ 
ない と， ちょうど 中心に はなり ません， 



色の つけ 方 

とにかく やって みましょう， 色 を 塗る に は PAINT 文 を 使います. 先程の 円の 中 を 赤く 塗る に 
は， 次の 様に 指定し ます. 



PAINT (312， 96)， 



2， 7 




(円の 内側) 



t わくの 色 （白） 
- 塗る 色 （赤） 




つまり， PAINT 文 は， 指定した 座標から 指定した 色 を， わくの 色のと ころまで 塗ります. で 



すから， 円の 外側の 座標 （例えば （1， 1)) を 指定して PAINT 文 を 実行し ますと， 円の 外側 

- 

だけが 塗られます， 例えば， 次の PAINT 文で は， 円の 外側が 青くな ります， 



PAINT ( 1 ， IX 




座： 

(円の 外側) 



U 7 

^ 塗る 色 （青色 




PAINT 文の 座標 を 指定 するとき， その 座標 は 塗られる 側に 入って いる 点で なく て はなり ま 
せん. わ く の 上の 点 を 指定す る と 何も してく れ ません ので 注意して く ださい， 

さて， 塗る 色の 指定です が， カラー ディスプレイ 画面 も 家庭の カラ一 テレビと 同じように， 
光の 三原色 （青， 赤， 綠） を 組み合わせて， いろいろな 色が 出せます. 基本的な カラー は 8 色 
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(黒， 青， 赤， 紫， 緣， 水色， 黄色， 白） あります * テキスト 画面の 文字の 色 は， COLOR 文に 
よって 指定で きます， 

グラフ ィ ッ ク 画面の タラー 指定 は， 画面 モー ドと パレ ッ トの 指定が 必要です. まず， SCREEN 
文 を 使って 画面 モ一 ドを カラー モー ドに 指定し ます， 



SCREEN 0 



t 画面 モード （0 のとき カラ—， 1 のとき 白黒 リ 



次に パレットの 指定です， パレットと は， 色の 指定 を 間接的に 指定させる ための ものです 
れ は.， 表示す る 図の 色 を 変化させる ために 使います. 



これ を 図に 表わす と， 次の 関係に なって います. 



ゾヽレ 、ソ ト 



力 ラ 



塗る 色 



ノ 



一 



PAINT (312， 96), 2 ， 7 



t 

i 
i 



0 
1 

-- 2 
3 

4 

5 




6 [ 



ト… 6 



わくの 色 



] 



7 




しパ レツ ト 番号 し カラ— 番号 



カラ一 と パレットの 対応 は， その 対応 番号 を COLOR 文 （COLORS) で 指定し ます. 指定に 
当って は， 1 つの カラ一 番号 をい くつの パ レツ ト 番号に 対応 させても かまいません. 例えば， 
0〜 3 の パレット は， カラー 番号 1 (青）， 4 〜 7 の パレット は， カラー 番号 2 (赤） と 指定す 
ると， 塗る 色 を 0 としても， 3 としても 青が 塗られます. 

パレット 番号と カラー 番号 は， 最初の 状態で は 同じ 番号に 対応 させて あります が， 一度 
COLOR 文で 変える と， 次に 変える まで その 対応 関係が 保 たれます. 色 指定 をす る プログラムで 
は， 次の 命令 を あらかじめ 実行して おくと， 思い も よらない 配色に なること を 防ぐ ことができ 
ます. 



FOR I =0 TO 7 ： COLOR = (1,1)： NEXT I 



このほか， カラー は， グラフィック 画面の 1 点ずつ に 指定が できます ので， 中間色の 表現な 
どが できます が， これらに ついては， リファレンス マニュアル を 参照して 下さい， 
プログラム 例 

次に プログラム 例 を 示します， 実際に プログラム をキ 一ボードより 入力し， 実行して みて 下 
さい. データ は， 12 件まで （1〜32767 の 範囲） 人力で きます が， 試しに 10 [ATj, 20 [<^] , 



80 



^レ 5。(^), 7。|^], 40 [ぶ〕， 99999 1 ぐ リ， と 入れて みて 下さい. 
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10 



30 
40 
50 
60 
70 
80 



100 
1 10 
120 
130 
140 
150 
160 
1 70 
1 80 
190 

2\a 

220 
230 
240 
250 



2 了 0 
280 
290 
300 
310 
320 
333 
340 
350 



37a 

380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
488 
490 
500 
510 
520 
530 
540 

550 
560 
5 了 0 



600 

610 



630 



' 圍 ク w ラフ 

CONSOLE 0,25,0 
WIDTH 80,25 
SCREEN 0,0,0,1 

d0) - （639, 199) 
(0,0)^(639, 199) 
*INPDATA 
木 DISPDATA 
*BOUGRAPH 



*T メン シ 3 キカ 



VIEW 
GOSUB 
GOSUB 
GOSUB 



FOR T 



1 TO 2(300 ： NEXT 丁 



GOSUB 
GOSUB 
END 



*DISPDATA 
*ENGRAPH 



:3 ゥ 1 J a ク 



DtM I NDATA (12) 
I ■ 1 TO 12 
"？ * 一夕 八 

IF I NDATA C I > 
KENSU - KENSU 
IF I NDATA t I ) 



ニコ ゥリ 3 ク テ "ータ 



it 



( 

= 99999 I GOTO 250 
+ 1 
S THEN S 



1 ) 



GOKE I ' GOKE I + 
NEXT I 
RETURN 

*DISPDATA ' i 

CIS 3 

FOR t - 1 TO KENSU 
LOCATE 0, 1-1 
PR IN 丁 USING 

NEXT I 

RETURN 

木 BOUGRAPH 1 
BX * 184 ' 
BY - 164 ' 
HABA • 22 ' 
YOKO » 32 ' 
TATE « 16 ' 
IF S/10 > I THEN C 



) 



テ " ータ 二 ユウ y 3 ク ケ ンスゥ 
テ ^ ータ ノ サ イタ w イチ 
テ 、一 タ ノ コ" ゥケィ 



力 w メン ク r to —タ ヒ a ゥシ 



(»#) 



'華 



) 



HHH - ク M ラフ 

m 、j ノ x サ * ヒ a ゥ 

ケ * ン チン / Y サ 1 *t ，ゥ 

ウノ ハバ * 
3 コ ノ キサ *ミ 
タテ ノ +サ >S 

» c + 1 ： s - s/i(a 



GOTO 390 



M A ス 



la 



A 



(C 



I) 



タ？ シ w ク メモ y ノ サ イタ * イチ 



タテ ョ 3 シ " ク ヒ3 ゥシ * 



LINE (BX,BY 一丁 ATE 木 10) — （BX- BY) ,7 

し 1NE — （BX+YOKO*(KENSU+1 》 ,1 

FOR I • 1 TO 10 

LOCATE BX/8 — 6, (BY — 4) ん8 — TATE/8* I 

PRINT USING "»tttt»tt" ； MAX * 1/10 

し INE (BX-4,BY-TATE*【）一(BX+4,BY-TATE*I> ,7 

NEXT I 



タ？ メモリ ノ ヒ 3 ゥシ A 



BX/8, (BY+4) /8 



650 



FOR I * 1 TO KENSU 
LOCATE l*Y0K0/8 
PRINT USING 

NEXT I 

FOR I » I TO KENSU 
IF I NDATA U > - 0 
TAKASA • 
L INE (BX+l*YOKO, 



THEN GOTO 620 
C f ) /MAX 
BY ) 
•CBX+l*YOKO + HABA, BY - TAKASA し 7 , B 
IF TAKASA < 2 SOTO 620 

PAINT (SX^ l*YOKO+I , BY-1 し （（1-1) MOD 了い し 7 
NEXT I 

RETURN 

*ENGRAPH ' i ン ク * ラフ 

EX - 440 '(EX-EY); ェン ノ チ コ ゥ シン サ * ヒ 3 ク 



33 メモリ ノ ヒョ クシ 



ホ"— ノ ヒ 3 ゥシ 



'タテ シ^ク ノ タカ サ 



670 



690 
700 
710 
720 
了 30 
740 
750 
760 
7 了 0 



790 



R - 180 

ST = .13000 1 ' 力 イシ カク ト * ヲ フ ニス ル タメ ノ IT サ 
FOR I - 1 TO KENSU 

EN » ST + INDATA(I》 / GOKE I * 3.1415 * 2 

CIRCLE (EX.EY) ,R,7,-ST,'EN 

P = EX + R/1.2 * COS(ST+(EN-ST) /2) 

Q ■ EY - R/1.2 * SIN(ST+ (EN-ST) /2) /2 

PAINT (P,Q) バ （ H) MOD T) + 1 ,7 

LOCATE P/8-1 ,Q/8 

PRINT USING "(«#)"; I 

ST - EN 
NEXT I 
RETURN 



メ 



プログラム を 分けて， 見て いきましょう， 



ここで は， 画面の 初期化 を 行って います， グラフィック 画面 を 使う とき は， 必ず 初期化し 
なければ なりません， 各 文の 詳細 は 後述し ますが， 意味の 概略 を 説明して おきましょう. 

1CONSOLEJ 文で， テキスト 画面の スクロール する 領域 を 0 行から 25 行 （画面 全体） とする 
とともに， 画面の 最下 段の ファンクションキーの 表示 を 消して います. スクロール する 領域と 
は 文字が 表示で きる 範囲です， 今回 は， 画面 全体に 表示し ます， ファンクション キ一 を 表示し 
たままで も グラフ 表示 はでき ますが， 消した 方が 見栄えが します. （再度 表示した いとき は， 
CONSOLE,,l とします） 

「WIDTH」 文で， テキスト 画面に 表示す る 文字の 桁 数， 行数 を 指定して います. この場合 は， 
最大の 80 桁と 25 行 を 指定し ました， 

1SCREENJ 文 は， ダラ フィック 画面 を カラー モードに するとと もに， 普通の 速度で 表示す 
る 指定 を 行って います. 

I WINDOWJ 関数と I VIEWJ 関数で， グラフィック 画面の 座標の 範囲と， ディスプレイ 画 
面の 座標の 範囲 を 指定して います， 両 画面と も 座標 は 0 から 始ま り ますから， 横 （X) 方向に 640 
点， たて （Y) 方向に 200 点 を 座標 範囲と して 指定して あります. 通常 このように 指定し ます 力 《 ， 
詳しく は， リファレンス マニュアル を 参照して 下さい， 



ク *ラフ 



CONSOLE 0,25,0 

WIDTH 80,25 

SCREEN 0/0,0,1 

WINDOW (fl,0)-(639, 199) 

VIEW (0,0》-(639- 199) 



、、 



力 * メン シ 3* 力 



12 3 



0 0 0 0 

4 5 6 7 
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r 



ヽ 



80 GOSUB *INPDATA 

90 GOSUB *DISPDATA 

100 GOSUB *BOUGRAPH 
1 10 

120 GOSUB *DISPDATA 

130 GOSUB *ENGRAPH 

140 END 

150 ' 



FOR T = 1 TO 2000 : NEXT T 



* INPDATA 



の プログラム は， 第 6 章で 学んだ サブルーチン を 使って， プロ ダラム を 4 つに 分けてい ま 

す. 各 サブルーチン は， 次の こと を 実行し ます， 

データ を 最大 12 件まで 読み， 配列に^ 憶す る， かつ データの 最大値， およ 
び 全 データの 合計 を 求める. 

* DISPDATA ……入力 された デ一 タを 画面に 表示す る. 

* BOUGRAPH … … 棒グラフ を 表示す る， 



*ENGRAPH 



円グラフ を 表示す る. 



真中の 「FOR」 文 は， 棒グラフ を 一定の 時間表 示させて おくた めの ものです， この場合 は， 
本体の 演算 速度で， 数 を 1 から 始めて 2000 まで 数えて います. つまり， 表示 時間 は， 数値 を大 
きく すれば 長く， 小さく すれば 短くな ります， 「FOR」 文の かわりに INPUT A$ とすると， 何 
ら かの データが キー 人力され るまで， 棒グラフ は 表示され ています， 



ここで は， キ一 人力され た データ を 12 個までの 配列 
変数と して 記憶し ます. 配列 変数に ついては， 第 6 章 
で 詳しく 説明し ました， 記憶した データの 件数， デ一 
タの 最大値， データの 合計 も 記憶し ます， 最大値 を 求 
める に は， まず 0 を 最大値と 仮定し データが 人力され 
るた びに， 最大値と 比較し， もし， 入力され た データ 
の 方が 大きければ， 最大値と 置 きかえる という 操作 を 
く りかえ します. デ一タ 「99999」， または 12 件の デ一 



タが 人力され ると 最大値と いう 変数の 中に 最大の デ一 
タ が 残 り ま す， 




大愤 



/ データ 入お A 

£ ― , 腿 , [ 



人力 終了 




(99999 または 12 件) 



人力 データ— 大使 I 



ヽ 



—メ 






* INPDATA 

DIM INDATA (12) 

FOR I » 1 TO 12 

INPUT "y*— タ 八" 

IF INDATA (I) 
KENSU = KENSU 
IF INDATA( I ) > 
60KE I * GOKE I 

NEXT I 

RETURN 



f % -9 = a ゥ リ邏ク 



( I ) 

999991 GOTO 250 
I 

S THEN S • INDATAC 



' = ユウり a ク —タ 



ケ ンスク 
f 



0000000000 

6789012345 



ィ ィ 

ク， ケ 

m タウ 

ゥサ n 

n 

II ノノ 

タ タタ 

一 I I 
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さて， 棒グラフの 表示 を， 次の 3 つに 分けて 説明し ましょう， 
• 前 準備 

• たて 軸 ノ 横軸の 表示 
• 棒の 表示 

まず， 前 準備です. ここで は， 棒グラフの 原点 座標 （BX, BY) と， 表示す る 棒の 幅 （HABA), 
たて 軸の きざみ 幅 （TATE), 横軸の きざみ 幅 （YOKO) の それぞれ について， グラフィック 画 
面 上の 点の 座標， および， 点の 数 を 決めて います， 

また， たて 軸 は， 10 個の きざみと し， 10 のべき 乗数の 目盛になる よう 最大値 （MAX) の 値 を 
求めて います， つまり， データが 10， 20, 80， 50， 70, 40 のように 全部 2 桁 以下で あれば， 目 
盛の 最大値 を 100， 3 桁 以下で あれば， 目盛の 最大値が 1000 となる ようにし ています. 



いよいよ グラフ を 表示す る わけです が， その 前に 画面 を 消さなくて はなり ません， 画面 を 消 
すに は， IC L S」 文 を 使います， 「CLS」 文 は， その パラメ一 タが 1 なら テキスト 画面， 2 な 
らば グラフ ィ ッ ク 画面， 3 のと き は 両方の 画面 を 消します， 

続けて， 「LOCATE」 文で 力一 ソル を 位置づけ， 「PRINT」 文で 人力 データ を 1 件ず つ 改行し 
ながら， 全 件数 分 表示し ます. 



力一 ソ ル 位置づけ 



A^J^ H 面^ 不 、n n) mmmm 
件数 分 



國 - 國"" 

； 



(1) 
(2) 
(3) 
(4) 
(5) 
(6) 



10 
20 
80 
50 
70 
40 



木 DISPDATA ， H^^H 力 * メン ク ひ ァ， テ* ータ ヒ s ウジ * 

CLS 3 
FOR I = 〗 TO KENSU 
し OCATE 0, \-\ 

pr i nt using n <m> ： mm» つに i 匪 ta(i) 

NEXT I 
RETURN 
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たて 軸 



たて 軸の き ざみ 幅 二 16 



ズ 



— 

原点 座標 二 （184, 164) し 横軸の きざみ 幃 =32 



r- 



棒の 幅 二 22 




[^一 タ の ^fifi-ld] 



横軸 







MAX- 


トま ,1 


1 


ta ゥシ 


、、 



ヽ 



410 
420 
430 



L INE CBX.BY- 
L I NE 



- (BX. BY), 7 

- (BX+YOKO*(KENSU+1 ) ,BY) ,7 



450 
460 
470 
480 
490 
500 
510 
520 
530 
540 



FOR I = I TO lfl 

LOCATE 8X/8-6, <BY-4)/8 一 TATE/8*! 

PRINT USING "»t»81t«" ； MAX % 1/10 

L INE (BX-4,BY-TATE*I ) 一 ( BX+4 , BY-TATE* | ) 

NEXT I 



タ r メモ！； ノ ヒ3 ゥシ 



,7 



3D メモリ ノ ta ゥシ 



FOR 〖- j TO KENSU 
LOCATE l*Y0K0/8 + 
PRINT USING "ばつ 

NEXT I 



BX/8 

I ； 



CBY+4》 /8 



…ノ 



ここで は， 棒グラフの たて 軸， 横軸， および， たて 軸の 目盛り， 横軸の 目盛り を 表示し ます 
それぞれの 座標 は， 次の 図の ようになります， 



讓 #100 

^ 



90 

80 
70 
60 
50 
40 
30 

20 十 
L0 

0 



(BX, BY — た て 軸の きざみ 幅 xlO) 

テキス ト 画面の たて の 表示 位置 

— 6. (BY — 4 ) + 8 — (たて 軸の きざみ 幅 + 8 xi 番目）） 



(BX + 横铀 のき ざみ 《x (件数 +1), BY) 




(BX— 4, BY — たて 軸の きざみ 幅 xi 番 

C BX + 4 , BY — たて tt のき ざみ 

xi#g) 



it I 



2 



3 



4 



5 



6 



原点 ゅ：樣 
(BX, BY) 



テキス ト 画面の 横目 盛の 表示 位置 

((BX+ 8) + i 番目 x (HS 軸の きさん 幅+ 8 )，（BY+ 4 )/8) 



この 図 を 見て， 各 点の 座標 を 確認して 下さい， 各 点の 座標 は， 原点 （BX, BY) からの 相対 
位置に なって います， また， 数字 は， テキスト 画面で 表示して グラフィック 画面に 重ねて 表示 

します， テキスト 画面 上の 位置 は， 「LOCATE」 文で 指定し ます. グラフィック 画面と テキスト 
画面 は， 横が 200 対 25, たて 力^ 40 対 80 で それぞれ 8 対 1 の 関係に なって いるので， それぞれ 8 
で 割って います. グラフィック 画面 上の 4 点 分 は， テキスト 画面 上の 文字 半分です ので， 目盛 
では 4 増減 させて います， 
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( ^よ り 便利 に 一 X 

画面 上に グラフ を 表示す るた めに 座標 を 計算し， プログラム として 記述 するとき， 50 と 

か 100 というよ うに 直接 数値で 指定す る ことが 多くあります. しかし， めんどう でも， この 

プロ ダラムの ように， 変数 を 使って 相対的に 表現して おくと， 表示 位置 を 変更 させたり， 

大きさ を かえたり， ちょっと 直して 応用す る ことが 自由にで きます. 

原点の 座標 やき ざみ 幅， 棒の 幅な ど 変更して 実行して みましょう， 
) 



ノ t» ゥシ 



FOR I * I TO KENSU 

IF INDATA( I ) 雷 0 THEN GOTO 620 
TAKASA * TATE*I0#INDATA<t)/MAX 
LINE (BX+l*YOKO^ BY ) 

-(BX+I*YOKO+HABA, BY - TAKASA) 
IF TAKASA < 2 GOTO 620 
PAINT (BX+l*YOKO+1 / BY - 1), 

NEXT I 

RETURN 



'タ テシ * ク ノ タカ サ 



7,8 



一 1) MOD 7 いし 7 



ノ 



さて， いよいよ 棒の 部分 を 表示し ます. 棒 は， 2 点 を 指定し その 2 点 を 頂点と する 四角と し 
て 表示させます. 「LINE」 文 は， 本来， 2 点 を 結ぶ 線 を ダラ フィック 画面 上に 表示す る 命令で 
す 力、 最後の パラメータに 「B」 を 指定す ると 指定され た 2 点 を 相対す る 頂点と する 四角形 を 
表示し ます， 

まず， データが 0 か チェックし， 0 なら 棒の 部分の 表示 は 必要ない ので， 次の データに 進み 
ます. 



次に， 棒の 座標です が， 図の よ う になり ます， 
ここで 棒の 高さ は， たて 軸の 最大値に， 各デ 
—タの 高さの 割り合い を かけ， それに， たて 軸 
のき ざみ 幅と き ざみ の 個数 を かけた ものです. 
たとえば， たて 軸の 最大値が 100， たて 軸の きざ 100 
みが 16， きざみの 個数が 10， データが 45 とする 
と， 「たて 軸の 1 メモリ 当りの 高さの 割り合い」 



( BX + ( 横軸の きざみ x i 番目 ） + 捧の 幅， BY— 棒の 髙 さ ） 

/ 




(BX+ (横軸の きざみ Xi 番目）, BY) 




は, 



80 -- 
70 -ー 



最大値 + たて 軸の き ざみ 個数 

100 + 10 = 10 



であり， 「棒の 高さ」 は 



50 - 



40 -- 

30 ― 

20 -- 

10 - 

0 



たて 軸の 最大値 = 100 



60 ，， ^ たて 軸の きざみの 個数 =10 




> 棒の 高さ =72 



たて 軸の きざみの 幅 =16 
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たて 軸の きざみ 幅 X データ + (たて 軸の 1 メモリ 当り の 高さの 割り合い） 

16 X 45 + 10 = 72 

となります. なお， この プログラム では， たて 軸の きざみの 個数 は 10 個と 固定です， 棒の 部分 
が 表示で きたら， 色 をつ けます * 色 は 「PAINT」 文で つける ことができます， 「PAINT」 文 は， 
ある 色の わくで 囲まれた 部分 を， 指定され た 色で 塗ります. 「PAINT」 文 は， 次の 様に 指定し 
ます， 

PAINT (X 座標， Y 座標）， 塗る 色の パレット 番号， わくの 色の パレット 番号 

座標 は， わくの 内側の 点 を 指定し ます. そこで， まず 棒の 高さが ある （2 以上） か チェック 
し， 2 以上なら 色 を 塗ります. わくの 内側の 点です から， 横軸 方向に +1, たて 軸 方向に 一 1 
しています， 

次に 塗る 色の パレ ッ ト 番号です が， 1 から 入力 件数 分まで かわる 間， 
I が 1 から 7 の 数 を く りかえ すよ う に 指定し ます. 
MOD は， 除算の 余り を 求める 演算子です. 

た と えば， 9 MOD 7 は， 9 + 7 = 1 — 2 ですから， 答 は 2 になり ます， 
同様に 0 MOD 7 は， 0 + 7 = 0"'0 で 答 は 0 です， よって （（1 — 1) 
MOD 7)+ 1 は， I が 1， 2， 3， …， 7， 8， 9 のとき， 1， 2, 3, ( x v) 
…， 7， 1， 2， となります, ヽ 



さて， 円グラフに 移り ましょう， まず， 円グラフ という ものに ついて 考え 
てみ ま しょう ，データが 3 件， 10, 10， 20 という 例で 円グラフ を 描く と 図 
のように なり ます， 円グラフ は， 1 周 （360リ を データの 比率で 割って 表わ 



します. 



つま 



デ一 タ 2 



データ 1 は 10+40 X36(T= 9(T 
デ一タ 2 は 10 + 40X36(T= 9(T 




データ 1 



データ 3 



640 *ENGRAPH ， mmmm ェン ク 4 ラフ 

650 EX - 440 '(EX,EY>; ェン / チコ ゥ シン サ*ヒ3 ゥ ： 

660 ey - \aa ： 

670 R = 180 ' MVW i 

680 ST = .0000 1 ' 力 イシ カク ト * ヲ フ ニス ル タメ/ II 1 * サ ： 

690 FOR 1 = 1 TO KENSU ！ 

700 EN « ST + I NDATA ( I ) / GOKEI # 3-1415 # 2 ： 

710 CIRCLE (EX.EY) ,R,7,-ST,-EN ; 

720 P = EX + R/ に 2 * COS(ST+ (EN-ST) /2) : 

T30 Q = EY + R/1 .2 * S1N(ST+ (EN-ST) /2) /2 ! 

740 PAINT (P,Q) バ （卜い MOD 7) + 1 ,7 ； 

753 LOCATE P/8- 1 ,0/8 ； 

760 PRINT USING " («») 〖 ； 

770 ST = EN ! 

了 80 NEXT I i 

790 RETURN ： 

F 

ソ 
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データ 3 は 20 + 40X360° = 180 



サ— 7 ル 



です， 円 は， その 中心 座標と 半径 を 決めれば， 「CIRCLE」 文 を 使って 簡単に 表示す る ことが で 
きます. 例えば， 円の 中心 座標が （200, 100) で 半径が 50 の 円 は， 次の 指定になります. 実際 
に 試して みて 下さい， 



CIRCLE (200， 1000)， 50, 7 

一方， 円弧 を 表示す る 場合， これに 開始 角度と 終了 角度 を ラジアン という 単位で 指定し ます. 
ラジアン という 単位 は， 図の 様になって います. ？ r (パイ） は， 3. 1415 です， 右上の 弧 を 表示 



する に は， 次の 指定に なり ます. 

開始 角度が 0， 終了 角度が 1/2冗 つま り 11415/2 ですから 



(ラジアン） 



CIRCLE (200， 100)， 50， 7， 0， 3.1415/2 



形の 場合， 開始 角度と 終了 角度に マイナス をつ けます， 0 に は 



正 も 負 も あり ません， そ 



で 0 が 開始 角度の 場合， 十分に 小さい 数 



(0.0001) を 指定して マイナス をつ けます, 




(弧) 



CIRCLE (200, 100)， 50， 7， —0.0001， —3. 141572 



終了 角度 = 開始 角度 + 



データ 



データの 合計 



x 2 



n 



サイン 



一 + 



(扇形) 



続いて， 扇形に 色 を 塗る ために 扇形の 中の 点 を 三角関数 （SIN, 



n サイ ン 




を 使って 計算し ましよ う. 
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三角関数の 公式 は， 

A = Cx (COS め 
B 二 Cx (S 胸） 




一 0.0001 



(200， 100) 



です， つまり， 扇形の 弧の 終りの 点 は， 次のように なり ま 
す • 

X 座標 ： 半径 xCOS^ 
Y 座標 ： 一 （半径 x SIN め 
終了 角度— 開始 角度 
ここで， X, Y 座標 を 計算す るた めに は， ダラ フィック 




画面の 特徴 をよ く 理解して おく 必要が あります. 1 つ は， 
Y 座標が 数学の 公式な どと は 正負が 反対に なって いる こと 
です. 




終了 角度 



開始 角度 



円グラフ は， 2冗 を 100 と して， 各 データの 割合い を 扇形に 表示して 
ゆけば 作成で きます， 各 扇形の 終了 角度 は， 次のようになります. 
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数学の 座標 



グラフ ィ ック 画面 上の 座標 




CLS 文 を 書く 時の 注意 は， 次の と お り です. 
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CLS 〔く 機能〉〕 



に 



ヽ 



个㊉ 



+ 



10 





! T0 




1© 



+ 



もう 1 つ は， X 軸と Y 軸の 座標 は， ディスプレイ 画面の 分解能が （0， 0)— (639, 399) の 
とき 1 対 1 に 対応して います * ここで は， （0， 0 )- (639, 199) の 範囲 を 使います から， Y 



軸の 座標 計算に 当って は， X 軸の 半分と なります， 

「PAINT」 文の 座標 は 扇形の 中の どこでもよ いのです が， その 中に 表示す る 対応 番号が う ま 

, 扇形 を 表示した 後, 




く 表示で きる 点と して， 半径の 1,2 分の一 の 点に しま した， 
COS 関数, SIN 関数 を 使って， 扇形の 中の 座標 を 求め, 「PAINT」 文 を 出す と ともに， 「LOCATE」 
文で， その 座標に 当る テキスト 画面の 表示 位置に 力一 ソル を 位置づけ， 「PAINT」 文で対応番 



号 を 表示して います. 



終了 角度 



(X， Y) 




タ= 開始 角度 + (終了 角度— 開始 角度） +2 



開始 角度 



半径 



P 
八 



半 g + l-2)xCOS タ 
半径 + 1.2)XSIN<? /2 

V— ^ 

q 



命令の 説明 



この 章で 新しく 出て きた 命令 を， 見て いくこと にしましょう, 

① CLS 文 

テキスト 画面， ダラ フィック 画面 をク リアし ます. 



+ _ 

X Y 

p Q 



一， * ■ 



② WIN DOW 文 

ディ スプレ ィ 画面に 表示す る ワール ド 座標系の 領域 を 指定し ま す, 




WINDOW 文 （X い Y，）— （X 2 , Y 



2 



ノ 



WINDOW 文 を 書く 時の 注意 は 次の と お り です, 



r 鼠、 



N 88 — BASIC(86) では， 図形 （グラフ ィ ッ クス） を极 うため に 大きな 仮想 座標系 を 持って おり， そ 
れを ワールド 座標系と 呼びます. 図形 は， この ワールド 座標系の 中で 极ぅ ことにな つてい 



ますが， ディ ス プレイ 画面に 表示され るの は， この WINDOW 文で 指定され た 範囲の もので 
す， WINDOW 文で 座標 を （0， 0 )— (639， 199) と 指定 すれば， ワールド 座標と デ イス 
プレイ 画面の 座標が一 致します. WINDOW 文で 限定され た 座標 をスク リーン 座標と 呼び 
ます， 



0 


639 


199 


o | 


； 1 



― 




ワール ド 座標 



ティ ス ブレイ 画面 



、、 



③ VIEW 文 

ディ ス プレイ 画面のう ち， グラフ ィ ッ ク 画面 を 表示す る 領域 を 指定し ます 




VIEW (X い YJ- (X 2 ， Y 2 ) し く 領域 色〉〕 〔， く 境界 色〉〕 
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f ヽ 

： • < 機能〉 は， 1, 2, 3 の 数字で 指定し ます. j 

\ 1 は， テキスト 画面 をク リアし ます， | 

； 2 は， ダラ フィック 画面 をク リアし ます， I 



； 3 は， テキスト 画面と ダラ フィック 画面 をク リアし ます， i 




VIEW 文 を 書く 時の 注意 は， 次のと おりです, 



ノ—」 



• WINDOW 文で 指定 した 領域 を ディスプレイ 画面の どの 部分 に 表示す るか を 指定し ま 
す， VIEW (0， 0 )- (639 1 199) と 指定す ると， ディスプレイ 画面 全体に 表示し ます. 



WINDOW CO, 0 ) — (639, 




VIEW (0， 0 ) - （639, 199) 





ワール ド 座標 



スク リーン 座 




ディ ス ブレイ 画面 



•VIEW (0, 0)— (319* 99) と 指定す ると ダラ フィック 画面 は， ディスプレイ 画面の 左 
上 四半分に 縮少 されて 表示され ます， 

WINDOW (0, 0) - （639, 199) VIEW ( 0, 0) — (319， 99) 




ワール ド座檫 ス クリ一 ン座檫 ディ ス プレイ 画面 

• 領域 色 は パレ ット 番号 を 指定し ます ノヾ レット 番号が 指定 さ れ ると， VIEW 文で 指定 し た 
ディ ス プレイ 画面の 領域の 地色 （ク リアされ たと きの 色） が， その 指定され た 色に なり ます， 

'境界 色 はパ レツ ト 番号 を賊 する ことができます， ハ。 レツ ト 番号が 指定され ると， VIEW 文 

で 指定した ディスプレイ 画面の 領域に， 指定され た 色の わくが つきます. 

― 誦國國 _ - 隱 -^' 



④ SCREEN 文 

グラフ ィ ッ ク 画面の 種々 の モー ドを 指定し ます, 



r 



書き方 



SCREEN 〔く 画面 モード〉〕 〔， く 画面 スィッチ〉〕 

〔， く アクティブ ページ〉 〔， く ディスプレイ ページ〉〕 



SCREEN 文 を 害く 時の 注意 は， 次のと おりです, 
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_j -t r ■■■■■■■■ 冒嘗國國國國 國國國 隱國國 隱國— _ 隱國 —丄丄 丄 — _ — _ — — 國 - ______ ___ 

； 一 …- 一、. 

： ♦ 画面 モード は， グラフィック 画面の カラー や ディスプレイの 分解能の 指定 をし ます * 通 I 

I 常， 0 を 指定し ます. | 

： 画面 モ一 ド ： 0 カラ一 モ一 ド i 

！ " ： 1 白黒 モード i 

： " ： 2 高 分解能 白黒 モー ド | 

； " ： 3 高 分解能 カラ 一モー ド i 

i '画面 スィッチ は， グラフィック 画面 を 一時的に 消したり， 表示 速度 を 高速に したりす る I 

； ための 指定 をし ます， 通常， 0 を 指定し ます. i 

I 画面 スィ ツチ ： 0 グラフ ィ ッ ク 画面 を 通常 速度で 表示 i 
： " ： 1 ,f を 速い 速度で 表示 ； 

： " ： 2 ず f を 一時的に 消す i 

： " :3 w を 一時的に i 肖す とともに， 高速で 入れ かえる， ； 

： 'アクティブ ページ， ディスプレイ ページの 指定 は， カラ 一モードで は 通常 0， 1 を 指定 I 

； します. 詳しく は， リファレンス マニュアル を 参照して 下さい. i 



⑤ LINE 文 

指定され た 2 点 間に 直線 を 引 きます. 




L I NE 



はい Y,) 
STEP (X い Y, 



I〕 



(乂 2， ^ 2 



STEP (X 2 ， Y 2 ) 



〔， く パレ ッ ト 番号〉 〔， 



B 

BF 



〕 〔，く ラ インス 




v. 



UNE 文 を 書く 時の 注意 は， 次のと おりです, 



ベ 



座標 はい YJ から （X 2 , Y 2 ) までに， パレット 番号で 指定され た 色の 線 を 書きます, 
座標 はい YJ を 省略す ると， 直前の UNE 文， CIRCLE 文， PAINT 文な ど 座標 を 扱つ 
た 文の 座標が とられます. よって， 左の 文の 意味 は， 右の ようになります. 



LINE (0, 0)- (1, 1) 



LINE 



— (2， 2) 



/LINE (0， 0)- 
、LINE (1, 1)— 



(1， 1) 



2， 2) 



LINE 文の パラメータに 「B」 を 指定す ると， 座標 （X lt Y t ), (X 2 ， Y 2 ) を 相対す る 頂 
点と する 四角 を 表示し ます， 
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( 0， 0) 



I LINE (0, 0)- (10, 10)，，B I： 

^^^^^^^ 

； (10, 10) 

i また， 「BF」 を 指定す ると， その 四角の 中 を 指定され た パレット 番号の 色で 塗りつぶし ま 

\ す. 

\ • ラ インス タイ ルを 指定す る こ とに よって， 破線 や一 点 鎖 線 を 簡単に 引 く こ と がで きます, 
： 詳しく は リファレンス マニュアル を 参照して 下さい. 



⑥ CIRCLE 文 

円 または 楕円 を 描きます 




CIRCLE 



(X， Y) 

STEP (X, Y) 



， く 半径〉 し パ レツ ト 番号〉〕 



〔， く 開始 角度〉〕 〔， 〈終了 角度〉〕 L 比率〕 



CIRCLE 文 を 書く 時の 注意 は， 次のと おりです. 



r 



乂 



座標 （X, Y) を 中心として， 指定され た 半径の 円 を， 指定され た バレット 番号の 色で 




* 



きます. 

座標と して STEP(X, Y) と 書く と， 直前の LINE 文， CIRCLE 文， PAINT など 座標 を 

扱った 文の 座標からの 相対 座標が と られ ます， つま り 次の 文 は 同じ 意味です. 



CIRCLE (100, 100)， 10 
CIRCLE STEP (10， 10)， 10 



CIRCLE (100， 100), 10 
CIRCLE (110， 110)， 10 



* 



開始 角度， 終了 角度 を ラジアンで 指定す ると， 円弧 を 書く ことができます. このと き， 
開始 角度， 終了 角度が 負で あれば， その 絶対値が とられた うえ 中心からの 半径が 描かれ 
ますので， 扇形 を 描く ことができます， 
例えば， 次の 命令 は 図の 扇形 を 描きます + 



CIRCLE (100， 100), 50，， —1,57075， —3,1415 




50 



(100, 100) 



比率 を 指定す ると 揞円を 描く ことができます， 詳しく は， リファレンス マニュアル を 参 
照して 下さい， 



® CONSOLE 文 
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テキス ト 画面の 各種の モ一 ドを 指定す るた めの ものです. 




CONSOLE 



ヽ 



〔く スクロール 開始 行〉〕， 〔スクロール 行数〉〕 
〔， く ファンクション キ一 表示 スィッチ〉〕 

〔， く カラ一 z 白黒 スィ ツチ〉〕 



CONSOLE 文 を 書く 時の 注意 は， 次のと おりです, 



r 



ファンク ショ ンキ一 表示 スィ ツチ を 0 にす ると， 画面 最下 行に 表示され ている ファンク 
シ ヨン キーの 文字列 を 消す こと がで きます. 1 に 戻す と 元通り 表示し ま す， 
例 CONSOLE, ，0 

カラ一 Z 白黒 スィッチ を 1 にす ると， テキスト 画面が カラ 一モードになります， 0 を 指 

定 する と 白黒 モー ド にな り ます. カラ一 モー ド であるか 白黒 モー ド であるか によって， 

COLOR 文の 実行 結果が かわ ります. 

ス クロ — ル 開始 行と ス ク ロール 行数に よって， テキスト 画面の 表示 範囲が 限定で き ま す. 
詳しく は， リファレンス マニュアル を 参照して 下さい. 



⑧ COLOR 文 

テキスト 画面の 各部の 色 や， パレットの 色 を 指定し ます 




厂 

(1) COLOR 〔く ファンクション コード〉〕 〔， く バック グランド カラ一〉〕 

〔， く ボーダー カラ一〉〕 〔， フォア グランド カラ一〉〕 

(2) COLOR 二 （く パレット 番号〉， く カラ 一コード >) 

(3) COLOR® (X い YJ- (X 2 ， Y 2 ) 〔， く ファンクション コード〉〕 



COLOR 文 を 書く 時の 注意 は 次の と お り です, 
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• 書き方 (1) の 場合， CONSOLE 文で テキスト 画面が カラ一 モ一ド になって いれば， テキ 
ス ト 画面に 表示す る 文字に， ファンクション コー ドで 指定した 色が つきます. 



ファン クン ヨン コート 

(カラ一 コ一 ド） 


色 


0 


里 

"い 


1 




1 1 


ゝ 


1 3 


紫 


1 4 ； 




5 


水色 


6 1 


黄色 


7 


白 1 



• 書き方 (2) の 場合， 各 パレット 番号に カラ一 コードで 対応す る 色 を 指定し ます， 一つの 色 

を 複数個の パ レツ ト 番号に 対応させる こと もで きます， 
， 書き方 (3) の 場合， テキス ト 画面の 2 点の 座標で 描かれる 四角で かこまれた 中に 表示され 

ている 文字 を， ファンクション コ一 ドで 指定 し た 色に する こ と がで きま す. 



(9) PAINT 文 

指定され た 色の わく で 囲まれた 領域 を， 指定され た 色で 塗ります. 



r 




、 



PAINT 



STEP (X, Y) 



〔， く 指定 色〉 し く 境界 色〉〕〕 



ン 



PAINT 文 を 書く 時の 注意 は， 次のと おりです, 
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ヽ 



境界 色で 分けられた 領域のう ち， 座標 （X, Y) を 含む 領域 を 指定され た 色で 塗りつ ぶ 
します， 



例 




指定 ゅ標 




指定 座標 



* 画面が 境界 色で 2 つに 分けられて いないと， 画面 全体が 塗りつ ぶされ ます. 
♦ 座標に STEP を 指定す る と 相対 座標に な り ます. 
• 指定 色， 境界 色と も パレット 番号で 指定し ます. 

•PAINT 文で 中間色 を 塗る こと もで きます， 詳しく は， リファレンス マニュアル を 参照し 
て 下さい. 



m sin 関数 

正弦 値 （サイ ン） を 与えます • 



r 




SIN (〈数式〉) 



SIN 関数 を 書く 時の 注意 は， 次のと おりです. 



© COS 関数 
余弦 値 （コ サイ ン） を 与えます 




COS (く 数式〉) 



COS 関数 を 書く 時の 注意 は， 次のと おりです 



！ • 数式 は ラジアン （0〜2な） で 指定し ます * 
t 



• 数式 は ラジアン （0〜2な） で 指定し ます， 

……― ノ 




へ 
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本章で は， プログラム を 保存して お 
く ディスク フ アイ ルの 扱い方な ど， 

説明の 足り なかった 部分 を 補足し ま 

す. 



第 1 節 フロッピィ ディスクの 扱い 



では， プログラム を 保存す る フロッピィ ディ スクの 扱い方に ついて 学び ましよ つ 



■ 



m フ アイ ル 一覧表の 表示 z 印刷 

3 章で， プロ ダラム を フロッピィ ディスクに 格納したり， 格納され ている プログラム を 主 記 

憶 装置に 読み出す 方法， つまり， SAVE 文， LOAD 文の 使い方に ついて 説明し ました • 

ここで は， フロ ッピィ ディ スクに 格納され ている ファイルの 一覧表に ついて 説明し ましよ う， 



FILES 文お よ び LFILES 文 

フロッピィ ディスクの ファイル 一覧 を 画面に 表示す るに は， FILES を 使います， フロッピ 
ィ ディスク を セットして， 次の 様に キ一 入力して 下さい， 



FILES W 



画面に フ アイ ルの一 覽 表が 出力され ま したね. 

また， ファイル 一覧表 を プリンタに 印字す るに は， LFILES 文 を 使います. 
LFILES 



ファイル^の 変更 

フ 口 ッ ピィ ディスク 上の ファ ィ ルの 名前の 変更が 必要になる こ と が あ り ます， その 場合， 

NAME 文で 簡単に 変更す る ことができます. 「TEST1」 という 名前 を 「KEISAN」 という 名前 
にかえる 場合， 次の 様に キー入力 します. 

NAME "TEST 1" AS "KEISAN"1<^) 

□1 ファイルの 削除 

フロッピィ ディスク 上の フ アイ ルで 不要に なった もの を 削除す る 場合， KILL 文 によって 行 
います. 「TEST2」 という プロ ダラムが 不要に なった とき は， 次の 様に キー入力 します * 



KILL "TEST2" [^T 
回 ファイルの 保護 

フロッピィ ディ スク 上の ファイル を SET 文 を 使って 保護す る ことができます. その 理由 は， 
フ アイ ルを KILL 文で 勝手に 消去 し た り ，'ファイル 名 を 変更したり， フ アイ ル 中に 別の 関係の な 



い データ を 害き 込んだり して， ト ラブ ルを 起さない よ うにす るた めです. 1 枚の フロッピィ 全 



体 を 保護す る 場合 次の 様に 指定し ます, 




SET 1, "P" 

ある 特定の ファイル だけ 保護したい 場合， 例えば， 「DATA1」 ファイル を 保護す る 場合 は 
次の 様に 指定し ます， 



SET "1 ： DATA1", "P" 



第 2 節 よく 使う 関数 



BASIC に は， コマンド 文と 関数が ある こと はすで に 説明し ました， 関数のう ち， TAB 関数に 
ついては 2 章で， EOF 関数に ついては 3 章で， LEFTS , RIGHT$ の 各 関数に ついては 5 章で， 
さらに， SIN, COS, WINDOW, VIEW の 各 関数に ついては 6 章で 学んで きました， 

ここで は， 上記 以外の 関数で 特によ く 使う 関数に ついて 学び ましよ う • 
[E 日付 や 時間 を 知る （DATE$ 関数， TIME$ 関数） 

プログラムの 実行に 当って， 日付 や 時間が 欲しい ことがあります. 日付 を 得る ために は 

DATE$ 関数， 時間 を 得る ために は TIME$ 関数 を 使います， ？欠 のように やって みましょう， 

？ 

？ 




time$ 




本体に は カレン ダ 時計が 内蔵 さ れ ています. こ の 時計 は 電源 を OFF に しても 電池で 動いて レ 、 
ます. ですから， 一度 正しい 時刻 をセッ ト すれば よい わけです が， もし 日付 や 時刻が 違って いる 
場合， あらためて 正しい 日付 や 時刻が セッ 卜で きます. 
date$ = ^82/10/10" 



time$ = "10 ： 00 ： 00" M 



文字列で ある 数字 を 数値に 変える （VAL 関数） 

数字 は， 文字列と して 与える と， 演算に 使えません. ですから， 次の 様な 命令 は 許され ませ 

に、 

A$= "100" ： B-A$ + 10 

の 文字列 中の 数字 を 演算で きる 形に 変換す るの が， VAL 関数です. 上記の 計算 は， 次の よ 
う に すれば できます. 



A$= "100" ： A = VAL (A$) ： B = A+10 
もし， く 文字列〉 に， 十， 一， & 以外の 文字が 含まれて いると 結果 は 0 になります , 
文字列 中の スぺ一 スは 無視 されます， 
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おわり に 



さて， 本書 を 読み終って， N 86 - 日本語 BASIC (86) 言語 を 使った プログラミングに かなりの 

自信 を 得た こと と 思います， 

PC-9800 シ リーズ パ一 ソナ ルコン ピュー タは， 日本語 ，グラフ ィ ッ ク， 回線に よ る 通信な ど 驚 く 
ほどす ばらしい 機能 を 持って います， そして， これらの 機能 はすべ て N 8S -日本語 BASIC (86) 
により 容易に 利用す る ことができます. 本書で 学んだ 知識 を ユーザーズ マニュアル， リ ファレ 
ンス マニュアル によ り さらに^ 用 発展 させ， よ り 深い 知識 を 修得され る こと を 望んで やみ ませ 
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